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RfiVE-JE? DORS-JE? 
OU AI-JE DES EXELVISIONS ? 



C'EST PAS POSSIBLE 
J'AI DES EXELVISIONS ! 

C'esl pas possible, j'en reviens 
pas I Habitue aux declarations fan- 
taisistes des ditferents construe- 
teurs d'ordinateurs. je pensais que 
I'EXL 100 d'Exelvision, comme 
nombre de ses confreres, ferait at- 
tendre ses peripheries jusqu'a la 
sortie du prochain modele pour le- 
quel on attendrait les periphenques 
jusqu'a la sortie du prochain mo- 
dele et ainsi de suite. 
Et la: miracle ! Non seulement les 
petits accessoires auxquels les mar- 
ques preterit si pen d'importance et 
qui nous soul si indispensables 
sont annonces, mais en plus on 
peut les voir, les toucher, les mani- 
puler. 

Et ce n'est pas tout: les peripheri- 
ques sont nombreux, certains sont 
meme originaux et. ce qui ne cache 
rien, certains prix frotent le raison- 
nable. 

J'ai dit CERTAINS, pas tous mal- 
heureusemsnt. 



CLAVIER DUR, CLAVIER MOU 

Les possesseurs actuels d'EXL 100 
ont de la chance: ils pensaient avoir 
fait I'acquisition d'un simple ordina- 
teur, ils ne savaient pas qu'ils deve- 
naient en meme temps les heureux 
possesseurs d'un appareil automati- 
que de musculation des premieres 
phalanges des doigts de main. Cet 
horrible engin de torture disparait 
enfin pour laisser la place a un ma- 
gnifique clavier mecanique, tout 
nolr avec la meme ineffable 
commande a infrarouge Les pos- 
sesseurs actuels d'EXL 100 ont de 
la chance: ils pourront acheter ce 
vrai clavier vers le mois de Mai et 
pour la modique somme de 2.650 
francs ! Non, c'est pas vrai, je plai- 
sante, cet accessoire fait partie des 
prix raisonnables: 295 francs, pas 
un rond de plus ! 

Dernier detail, comme il reste des 
stocks pas tristes de clavier mou. 
les tuturs acheteurs pourront choisir 
une configuration "junior* sans le 
clavier-digne-de-ce-nom et econo- 



miseront environ 150 balles. A de- 
conseiller. sauf si e'est vraiment la 
deche ! 



LE MONITEUR N'EST PAS A 
VENDRE 

Le moniteur vert 12 pouces est ca- 
rosse de plastique gris et noir. 
Deux boutons de reglage et un 
voyant rouge sur la face avant pour 
le classique. Deux entrees dont une 
peritel pour I original Le prix ? II 



en trouve des roses, des bleus, des 
verts ou des caca d'oie qui sortent 
du meme tonneau de sake. Celui-la 
vous coutera 300 balles avec son 
cordon de liaison. C'est moins 
beaucoup moins cher que et beau- 
coup plus cher que et reciproque- 
ment. 




n'est pas a vendre tout seul. mais 
la difference entre la configuration 
avec moniteur et sans moniteur est 
de 600 Irancs Dommage, d'autant 
plus que le moniteur couleur est an- 
nonce et avec des prix pareils, e'eut 
ete tout bon. 



CASSETTES NOIRES 

Le iecteur de cassettes d'Alice etait 
rouge et fabrique a Hong-Kong Le 
Iecteur de cassettes d'Exelvision est 
noir et fabrique a Hong-Kong. Mais 
alors. c'est le meme ? Et vi, et on 



640 Ko avec disquette formatee 
pour le classique. 40 Ko de RAM 
dont 8 pour le Dos ajoutee a la 
RAM de base pour I'original. Et en 
ligne. s'il vous plait: pres de 64 Ko 
utilisateur contre 32 pour I'ordina- 
teur seul. Le prix pour cet interes- 
sant engin est de 3500 francs envi- 
ron, ce qui est cher pour un Iecteur 
de disquettes normal et moins cher 
en tenant compte des Ko en rab. Le 
deuxieme Iecteur est annonce aux 
alentours de 1500 francs, ce qui est 
normalement moins cher que le pre- 
mier mais pas aulant que si le pre- 
mier etait venduau prix du second. 



LA DOULOUREUSE 

Avant de vous parler des autres 
nouveautes, je peux maintenant 
vous parler de ce qui nous tient 
tous a coeur: notre portefeuille 
Pour acquerir le bas du bas de la 
gamme. c'est a dire un EXL 100 
avec son clavier nullard et ses 
cables, il vous faudra casquer 2690 
francs, dernier prix a discuter direc- 
tement avec votre epicier habituel, 
Avec une rallonge d environ 150 



francs, vous aurez le vrai clavier a 
la place du faux. 

La deuxieme configuration proposes 
par les petits malms d Exelvision 
vous reviendra a environ a peu 
pres. a quelques chouias au meme 
prix qu'un Amstrad noir et blanc 
C'est a dire environ 3500 Irancs 
pour le moniteur vert. I'EXL 100 
avec ses 40 Ko de Rom et ses 32 
Ko de Ram utilisateur. le basic en 
cartouche, le vrai clavier, r alimenta- 
tion, la prise peritel et le Iecteur de 



cassettes avec son cable. 

La guerre est declaree: Amstrad- 

Exelvision. Gong ! Premier round ' 

HOU, LES TRICHEURS ! 

C'est pas vrai. la guerre est a peine 
commences et ils commencent deja 
les coups bas ! Non content d'avoir 
un synthetiseur de parole incorpore 
et des commandes a infrarouge. 
Exelvision sort de sa culotte de 
combat des peripheriquo-interfago- 
gadgets: une memoire de poche ef- 
ficace. un boitier de communication 
pas cher et presque genial, un boi- 
tier Antiope rigolo et un boitier Ta- 
ratataboumtsomtsoin. 
On se les regarde ? On se les re- 
garde, c'est parti ' 



MEMOIRE DE POCHE 

Ca se rentre dans un des trous de 
la face arriere. c'est une petite boite 
grise grosse comme un agenda de 
poche. Exelvision la prenommee 
"Exelmemoire" et cost une CMOS 
HAM pompee sur celle du Canon 
X07 J'expiique a quoi ca sert ? 
J'explique, c'est parti, ouane more 
ta'i'me ! C'est comme une deuxieme 
RAM matinee avec un Iecteur de 
cassettes, Vous tapez un pro- 
gramme normalement sur votre EXL 
100 et. pour le sauvegarder, au lieu 
de rester beatement a regarder tour- 
ner votre Iecteur de cassettes pen- 
dant deux heures. vous faites un 
SAVE dans cette carte et c'est im- 
mediat ' Je dis bien im-me-diat. 
pas 2 secondes. pas aussi rapide 
que les disquettes: im-me-diat \ 
Deuxieme interet: les programmes 
contenus dans cette memoire sont 
executables a partir d'un pro- 
gramme normal et rendent ensuite 
la main a I utilisateur sans affecter 
les variables du programme d'ori- 
gine. 

Troisieme interet 16 Ko sont dispo- 
nibles pour lutilisateur 
Quatrieme interet: On eteint I'EXL 
100 et les donnees sont conservees 



Suite page 16 



CINOCHE-TELOCHE 

Plein les mlrettes, pages 14 et 15. 



TROMBINETTE ! 

Cette semaine, CARALI sevit en page 17. 



C'est nouveau, ca vient de sortir : 

Lactualitedelamicro-intormalique. Lire pages 9,10. 



DEULIGNEURS 

Laa faineants sont a la page 11 



FORMATION A LASSEMBLEUR 

Le prof at I'amateur eclaire vous attendant a la page >9. 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater, modifier, tratiquer, magouiller, 
bidouitter et grenouiller avec les logiciels du monde entier. 
Mais dans la legalite, au moins ? Of course, mon general ! 
Lire page 9. 



CONCOURS PERMANENTS 

Votre programme, non content de vous rapporter 1,000 
francs par page publiee. peut vous rapporter 20.000 
francs cheque mois ou un voyage en California pour deux 
chaque trimestre. Reglement en page interieure. 



DES PROGRAMMES POUR VOTRE ORDINATEUR : AMSTRAD . 

APPLE lie et lie. ATARI 800 XL . CANON X-07 . CASIO FX 702-P. 

COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 

MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 

JANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07, TO7/70, ET M05. 
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TI99 BASIC ETENDU 



Au fin fond de la galaxie, vous devez recupe>er les re- 
servoirs denergie perdus sur une etrange planete. 

Frederic HOUDE el Eric BUZIN ■ 



I ! *#**#*#**********#******* 

J wttit FREDERIC HOUDE tttttt 
120 t ttttMHttttMHM ET tttttttttttttttttttt 
130 ■ ****** ERIC BUZIN #**» 

140 'tt**tt*tt»tt tttttttt*** **tt*tttttttt, 
150 Itttt PRE5ENTENT I DIE 2 tttt 
160 ! tttttttt* *» tt«#***tt*tt*tt **#****« 
170 !* 3 RUE ROLAND GARROS tt 
ISO !tt*tt* 34470 PER0L9 tttttttt 
190 !tt TEL 16(67) SO 02 40 * 
ZOO ! ********* It* ****** *Wtt**«tt 
210 !*» TEXAS INSTRUMENTS tttt 
220 !W + BASIC ETENDU tttt 

230 ! *#****•**#!*#*•**•*♦** tttttttttttt 
240 !#• <C) HEBDOGICIEL . tttt 
250 !#****#*********»*tttttt»tttt 
260 CALL CLEAR :: CALL SCREEN (2) It CALL 
COULEUR : J CALL DIE2 

270 ! ******#******»***tttt»##tt#tt*tttMitttt»*tttt 
*********** 
2B0 ■ REDEF BLANC DU CARRACTERRE NoCttO] 

AU No [72] 
290 ! tt*tttttt«#tt«tt##tttt«#tttttt«*ttttttttttttt«tttttt«<ttt 
#***N*tttttt* 

300 CALL CHAft(40. "0000000000000102". 41. " 
000000033CD0604" , 42, " 0000 101 01 010 I 010" . 4 
3. "0OOOO0FE29 140808", 44, "040407040601") 
310 CALL CH6R(43. "403CO38070OF8OB- . 46, "2 
023FC0003FC". 47. "F001063BC" , 4B. "01020101 
01 01 0101". 49. "Q00000000000E018" > 
320 CALL CHAR (50. "01", 51. "07E 0988 7808030 
1 , 32 , " FFOOOOFF " . 53 , "80B0704F406060F " , 34 
, "00000000FF".35, "00020C70B",36. "F8FBFBF 
B787B7C7C") 

330 !*«** ETOILES tttttttt 

340 FOR 1-1 TD 24 tl DISPLAY AT(I.INT(RN 
D*24)+l)t"2" 
330 NEXT I 

360 ' ttttttttttttlltttlttttttNtttttt* 

370 CALL CHAR(57, "1010080618260624", SB," 
7E7D7C7C3E3F3E3E",59, "OOF0OFOO01827A06" , 
60. "063BC000C32C109",61, "424A4A42B40B0B0 

380 CALL CHAR<62,"1E0E0E01", 63, "02020202 

B27E212", 64, "509050913608300", 65, "102040 

C0404040 " , 66, "O8OB0aO804O30101 " ) 

390 CALL CHAR(67. "O0O0OO00O0837C" , 68. "00 

00204O8O0OBO8",69, "9CA6A69C4040444" . 70, " 

80804040404O4O4",71 , "40231 Dl 1 1 1 1 10F06", 7 

2,"B"» 

400 CALL UHUCtO, 18. 13) 

! *tt«*ll*«tt*****tt*tt*tt*»tt»#tt*****»*tt**** 

# # t| A g # Ntttttt tt 

420 I REDEF ROUGE DU CARRACTERRE NoC803 
J NoC102) 

• ■• . ' ■••■•••■■»■•■••■••»••••■■•■■•••-•■• 
••■•••••«■■ 

440 CALL CHrtft<8O."0O0OO0OO003F2O3",81.-4 
»888848484e3F-.82."0O0OO0OOFF7F3F3F-.B3. 
'IF1F1FIF3FFT-.64, -OOOOOOSFFeFeFCFC" . 83. 

-FGFCFCF9FC- > 

430 CALL CMARI8*. "02020202020201". 87. -3F 

7FFFFBFlF2C6C3".ea. -010202-.B9. "FC020F-. 
.-80COEOIO£C023102".91,"00000000000000 

460 CALL CHARI92. "EBEB4A2A10100906" . 91 , - 
B44B31 31 4884023 1 " . 94. "8040404040406" . 93. 
-0O00000O0O0OO3FC".96.-0OOO00OOOO07Ff7F" 




310 CALL CHARI 104. "0F03", IOS.-FFFFFF3FOF 

", lO*. "FFFFFFFFFF", 107. "FOFCFFFFFF 101OO8 

". 108. -07". 109. "10C83F".1IO."0020COOOOOF 

F3F0F-) 

320 CALL CHARdl t . "O2O2O2010OFFFFFF " . 1 12 

1C030I8142FFFFFF",113.-00000000001F204 
".114. "0OO00O0OOOO0C03". 1 IS. - 80000000010 
IC1F2-) 

330 CALL CHAR(116.-0C3241811824424A".1I7 
. "FEFE020201C13907-, 118. "324243390202040 
B',119,-F", 120.-OOOOOOOOFFFFFFFF-J 
340 CALL CHAft(12I,"FF6", 122,-OOOOOOOOOOC 
OFOFC", 123. "FF-, 124, "OOOOOOOOFFFFFFFF") 
330 •••••••■•••••••••••••••■ 

360 ■•• REDEF DES SPRITES ••• 
370 ■••••••••••«•••••••••••■ 

380 CALL CHAftl33."3CFFFFFF3C-,34,-FOOeoe 

0404- . 33. "040406F" . 34. "OC" , 37. -02FC". 38. 

"0402" . 39. "000618204040608- > 

390 CALL CMAR(73."202020E4242320I-, 74.-0 

3" . 73. -FFFF- . 76. "FFFF02020t ". 77, "OOOCIF 1 

COOOOOOF " , 78. -000102" . 79. "FC020F - > 

60O ' ■■■■■■•■■■>•■■■■■ 

' •••• tttt DATAStt tttt •«* • 
620 ' ■•■■•••■•■•«•■■•• 
630 DATA 6.7.40.6,8,41,6,9,42.6,10.43,6. 

.95,6, 12.96,6, 13.97,6, 14,98 
640 DATA 7.4.80.7,3.82.7,6,64,7,7,44,7,8 
,43, 7,9.46, 7, 10.47. 7. I I. 102,7, 12. 101,7, I 

I0O.7. 14.99 
630 DATA B. 4. 81. 8. 3. 83.6.6,63. 6. 7.48.8,8 
,49,8,9,86,8,10.67,8, 1 I , 90, 6. 12. 91 
660 DATA 9,7,30.9,6,31,9,9,32.9,10,92.9, 
I 1.93,9, 12,94 

670 DATA I0.B.33, I0.9.54, lO. lO.SS. lO. I 1, 
42 



700 DATA 13,4.104.13,3,103.13.6.106,13.7 

,107,13,8,62,13,9,63.13,10.64, 13. 11,63,1 

3,12,113,13,13, 114 

710 DATA 14,7,106,14,6.109.14,9.110.14,1 

0,1 II, 14,11, 112,14,12. 113. 14,13. 116.14, I 

4, 120, 14. 13. 124, 14, 16, 122 

720 DATA 13. 9. 64. 13. 10. 67. 13. 1 I . 68. 13.12 

.117,13, 13. 118, 13, 14.121.13, IS. 123. 15.16 



, 123 

730 DATA 16.10,69,16,11,70,16,13,119 

740 DATA 17,10.71,17,11,72 

730 RESTORE 630 n FOR R-l TO 77 n READ 

Z,X,C ll CALL HCHAR(Z,X.Oit NEXT R 
760 ! #*W«*tttt**tttt«tttttt*tttttttt 
770 !tt#»#»*SPRITES***tt*tt* 
760 ' ttttttttt* tttt tttt tt tttttttt tttttttttltt 

790 DATA 33,6,42,63,34.10,52,49,35,10.37 
,49,36, 10,68,69,37, 10.73,81,38, 10,73.74, 
39, B, 89, 31, 42, 16 

BOO DATA 44,78.42, 16, 50, 79,73, B. 97, 57, 74 
,8,113.65,73,8,113,73,76,8, 113. Bl 
810 DATA 77,8.97.80,78.10,54,65,79,10,54 
,73,42. 16, 102,65 
820 RESTORE 790 s: FOR 1=1 TO 17 ti READ 

CHAR.CaUL.P05X.PD5Y :: CALL 5PRITE(t(I.C 
HAR,C0UL.P0SX,P05Y> i : NEXT I 
830 1 tttttttt ***************** 
B40 IttttttMUSIQUE MAESTRO****** 
650 ! tttttttttttttt tttt tttttttt* **##**** tttt 

B60 B05UB 910 : :' G0SU8 910 :: GOSUB 1030 
B70 GOTO 860 

BBO DATA 40. 262. 40. 262. BO. 262,80.330.80. 
392. 1 60-, 523. 40. 659. 40, 5B7. BO, 523 
B90 DATA 80,330.80,370.120,392.40,33900. 
40,392.40, 392, 120.659, 40, 5B7. BO, 523. 160, 
494 

900 DATA 40.440.40, 494.80,523.80, 523, SO, 
392, BO. 330,40, 262, 80,33900 
910 RESTORE BBO 
920 FOR 1=1 TO 27 
930 READ 0,W 

940 CALL SOUND(Q+200,W,0> 

930 CALL KEY(0,k,S)li IF 3=0 THEN 960 EL 
SE 1080 

960 NEXT I : : RETURN 

970 DATA 40,659,40,639,80,659,80,698.30, 
7S4, 160, 734, 40, 698, 40, 659, BO, 5B7, SO, 659 
9B0 DATA SO, 69B, 160, 69B. BO, 698, 120,659,4 
0,5S7,BO, 523. 160. 494, 40. 440, BO, 494,80, 52 
3, SO, 330 

990 DATA 80,370,120,392,40,33900,80,392. 
SO, 523, 80, 523, SO, 523, BO, 440, 80, 440, 80, 44 
0,B0,387,40,69B 

1000 DATA 40,659,40,587,40,523,80,523.40 
, 494, 40, 33900, 40, 392. 40, 392, 120,523,40, 5 
87,40,659 

1010 DATA 40.698,160,784,40,523,40,587,1 
20, 659, 40. 698, 80,587, 160,523 
1020 RESTORE 970 
1030 FOR J=l TO 52 
1040 READ Q.W 
1050 CALL S0UND(D+200,W,0) 

1060 CALL •CErio.h.ln, IF »-0 THEM 1070 
CLtK I060 

1070 NEXT J ii RETURN 
1080 '*••••••■••••■••••••• 

1090 '■•** EXPLICATIONS tttttt 
uoo -•••»•■«■-•■■•■■•■■■ 
1110 CALL DELSPRlTEIALDt i FOR 1-1 TO 24 

■ l DISPLAY ATII, Hit NEXT I 
1120 CALL CHARSET II FOR 1-1 TO 6 I i CAL 
L COLORU.16, l>ll NEXT I ■■ CALL CHARC59 
. "0OOOOOO01BOB102O" > 

1130 CALL UHUHO, 13,8)1) DISPLAY AT(18,S 
>l"[APPUYEZ UNE T0UCHE1" ■■ DISPLAY AT (2 
0.3)i"[APREB CHAOUC ECRAN]' it CALL NEOP 
RENE i i CALL EFF 
1140 ■■•■•■■-■■«■•■■■■■ 
U30 ■■ DATA8 I *r PAOE tt 
1160 -tttttttttttttttttttttttttttttttttttt 
1170 DATA 6.S.V01LA UN JEU GENIAL '■ 
HBO DATA 9.2.CELU1 QUI ARR1VERA A PASSE 

It90 DATA 10.3.LES lO TABLEAUX DE CE JEU 
120O DATA 1 1,4, SERA VRAINENT UN AS . . • 
I2IO DATA 13.1.NALBRE UNE FUSEE TRES NAN 



1 230 

IME 
L2M 



1290 
TM 

I soo 

1310 

i r:o 

I330 

1 5*1' 
1330 
1 '.60 

1370 
I MO 

IF 



DATA 16.2.TR0P BONNE " ML ' ODEUR DE 
DATA I7.1.DEFAITE DEVIENORA FAMIL1A 
DATA 19. 2, DES OUE VOUS ETES DETACHE 
DATA 20. l.DE LA SASElFAlTES ATTENTI 
DATA 21.1. DC NE PAS ARRACHER LE NAN 
DATA 22.1.DU JOYSTICK CHOIS1 CAR VO 



DATA 23.4.VAISSEAU EST PR 1 S PAR 

DATA 24. S.L ■ATTRACTION LUNA I RE • 

CALL UHUI2. 13. 1 1) 

RESTORE 1110 ii CALL DA* 131 

' ■■•■■*■■■■ ■<■ ■■*■■■ ■■ ■ 

'•■•DATAS 2m>« PAQCtttttt 

■ Btttttttttttttttttttttttttttttttttttttttt 

DATA 6,4.HAtHAtHA'VOUS TOH8EZ ' ' 

DATA 7.1.APPUYEZ SUR LE 8OUT0N DC T 

i DATA 8.4.ETI0 MIRACLE I UNE JOLIE 

> DATA 9,2.FLAt«*E S'ECHAPPE DC VOTRE 

i DATA 10.2.REACTEURtET VOTRE VAISSEA 



1460 DATA I3.3.LUNA1RE S'EN CHARGE. . . 
1470 DATA 16. l.MAINTENANT QUE VOUS SAVE/ 
I4SO DATA 19,2, VOUS MAINTENIR EN L'AIR I 
I490 DATA 20.2. IL VOUS FAUT ATTRAPPER LE 



1320 RESTORE 1370 it CALL DA11S) 
I330 ■■»■•••■•■■■••■■■■■«• 

1340 '•• DATAS '•— PAGE •• 
1330 '•••MIIHIIIMHIIIM 

1340 DATA 7.2.AUX AUTRES TABLEAUX! VOUS 



1570 DATA B.3.AUREZ BONNE 'MINE 'CAR 

1580 DATA 9.2.CELLES-CI VONT RISQUER DE 

1590 DATA 10,1, VOUS HEURTER ! ' HAiLAsLA! 

1600 DATA 12.1, VOUS NE FOURREZ GAGNER QU 

'EN 

1610 DATA 13.3.TRICHANT C J' EXAGERED !! 

1620 DATA 16. l.JE VOUS SOUHAITE SON CQUR 

AGE 

1630 DATA IB. l.PREPAREZ-VOUS A MOURIR VI 

TE. 

1640 DATA 20. 3. VOUS AVEZ 3 VIES.... 

1650 DATA 21,1. VOUS GAGNEZ UNE VIE A CHA 

QUE 

1660 DATA 23. 4. TABLEAU PAS5E 

1670 RESTORE 1560 :: CALL DA t 1 1 1 : i CALL 

CLEAR 

1680 DISPLAY AT ( 10. ! ) : "POUR LE CHARSEMEN 

T DE LA 2E" 

1690 DISPLAY AT ( 1 1 , 2) : "PART IE TAPEZ UNE 

TDUCHE" :: CALL UHU (4. 15. 1 6) : : CALL NEOP 

RENE : : CALL CHARGEMENT 

1700 SUB COULEUR :: CALL COLOR (2, 16. 2, 3, 

16. 2, 4. 16, 2, 5, 16, 2, 6, 16. 2, 7. 10. 2. 8. 10. 2, 

9, 10,2, 10.B.2) 

1710 CALL COLORll 1.3.2. 12.8.2) : : SUBEND 

1720 SUB DIE2 :: CALL CHAR ( 123. "C0A0908B 

84B2B1B1" . 129. "B1B1B2B4BB90AOC" , 130, "040 

4040404040404", 131, "OOO 1 020408 1 0203F" ) 

1730 CALL CHARI132. ■201008040201". 133. "C 

3". 134. "OO0O00O0O000B063". 135. "FF48484B4 

8484848". 136. "4B4B484B4B4B48FF " ) : : SUBEN 

D 

1740 SUB UHU(FD.F'U.COUL) : : CALL C0L0RU3 

, 1, 1. 14. 1. 1) , 

1750 CALL HCHARCPQ.F'U, 128) : : CALL HCHAR ( 

PO+l.PU, 129) : ! CALL VCHAR (FO. F'U + 1 , 130,2) 

1760 CALL HCHAR (PQ.PUi'2. 131) : : CALL HCHA 

ft(P0-H,PU+2. 132) 

1770 CALL HCHAR (PD.PU+3. 133) :: CALL HCHA 

R(P0-H.PU*3. 134) :: CALL HCHAR (PO, PU+4. 13 

5)S! CALL HCHAR (PD+1, PU+4. 136) 

17B0 CALL HCHAR(F'0.PU+5. 137) : : CALL HCHA 

RCPO-H.PU+S, 137) : : : : CALL COLOR! 13.C0UL 

. 1.14.C0UL.1) it SUBEND 

1790 SUB DACKKJll FOR DA=1 TO KK : 

PL. PO. A* : : DISPLAY AT (F'L. PO) : A* 
T DA i : CALL NEOPRENE : : CALL EFF 
END 

1B00 SUP. NEOPRFWE 

1810 CALL KEY(O.O.W):i IF W=0 THEN 1B10 
1820 5UBEND 
1830 SUB EFF :: FOR 1=4 TO 24 :: DISPLAY 

ATU.I):: NEXT I 

1840 SUBEND 



READ 



SUB 



AY ATU3. 1 > I "l 
13.14)i"DE- 
1S60 RUN "CSl" 



IO0 -tttt 2*** PAflTIE UEUItttt 
110 CALL CLEAR tt CALL DIE2 ■■ CALL DIE I 
10.13.l6ln CALL SCREEN ( l I )j t CALL REDEF 
120 FOR 1-3 TO B tl CALL COLOR i I . 16. Jl I I 

NEXT I 
130 CALL COLORll. 16. 1,3.16.2,4. 16,2,9, 14 

140 CALL C0L0R112, 3. 2, 11,3.2. 10.8,2,2. II 

,2lli CALL SCREEN(2)(l CALL CMARI33,"384 

492A2A2924436"! 

130 CALL TITRE II CALL TIR i. CALL TOUCH 

E 

160 CALL CHAR(33.-183C7E7E3C3C1B1-.40."F 

FlF23277724OCO6-.4I,-FFF6C4E4EE24301O"l 

170 CALL CHAR(98,-0000SABDBD3A".99,"00O0 

5A7E7E5A-.I0O, -003A3C66A63C3A-, I01.-OO3A 

3C7E7E3C3A-. 102, -0O423C666D99" ) 

180 CALL CHARU03,~42423C648D9924-,104," 

I82424DB3A241866-. 107, * 1B243CFF42241666" 



200 CALL CHARM 13. -90EOEOF2FCFCFEFF-, 122 

, -01 130FOF9F7F7FFF-) 

210 CALL CHAR* 121. -FEFFFFFFFFFFFFFE". 120 

,"7FFFFFFFFFFFFF7F-,H9. "7EFFFFFFFFFFFFF 

F-.lie.-FFFFPFFFFFFFFF7E-> 

220 CALL CHAR(97. "3030763046646484", lOS, 

"oeoeoeoeoeoeoeoe-, io6.-if234sf9B96afc-> 

230 NT**- - »T I -99/ 4A» - 

240 DISPLAY AT* 10.3) i "NANETTE 1 OU NANET 

TE 2- 

250 ACCEPT 8IZEI1)VALIDATE<-12-IAT(13.16 

liHtt it CALL S0UNDI10O.-3.01ll IF «••-" 

THEN 2SO 

260 IF Mtt-"l" THEN AI-1 ELSE Al-2 

270 CALL CLEAR 

280 FIN-I ti SC-0 ii v-2 It TBL-1 

290 ON TBL COSU6 770, IOIO. I 360. I 400. 1420 

. 1440. 1460. I4BO. I3O0, 1320, I340 

300 IF V— I THEN 80SU6 660 II GOTO 240 

3IO L-0 ll FOR l-i TO V«2 STEP 2 

320 CALL HCHAR(2.1.2.97)n NEXT I n DOS 

UK 620 i i OOSUB 640 

330 CALL SFRITEIttl. 97. 14.39. 86) 

340 CALL N0TION*ttI.0.3.tt4.O.-2.tt3.0,3.tt6 

.0.-3) 

330 CALL POSIT]0N(ttl.0.M> 

360 CALL PATTERN(tt3.VS, tttt. lOO.ttS, 102. tt6. 

104) 

370 CALL JOYSTIAI.X.YHi CALL *EY(AI.A.S 

III IF A'I8 THEN QOSU6 600 

360 P-- (0*61/6 :t L-L».OS ii 0-<W*3>/8 it 

CALL GCHAR(P.O.E) ii IF E 1 1 3 THEN S30 
3»0 l ■ -.(J.7I/U ii 0-4M+8>/8 Ii CALL GCHAR 
■t.ll.l ■:: IF E 113 THEN 330 
400 CALL LOINC<ALL.6UT> t t IF BUT--) THEN 

4IO IT E-106 THEN 470 

420 IF X»4 AND V-O THEN CALL LOCATElttl.D 

•L.IHDll GOTO 4bO 



430 IF X=-4 AND Y=0 THEN CALL LOCATE (ttl. 

a+L,w-D ■: goto 450 

440 CALL LOCATE<ttl,D+L,W) 

450 CALL PATTERN (t*3. 99. tt4. 101, »5. 103,1*6. 

107) 

460 GOTO 350 

470 CALL HCHAR(P,0,32) : : CU=CU-I s: SC-S 

C+50 ii CALL 5DUND(50, 200.0,-2,0,300.5) i 

i DISPLAY SIZE!6>AT(2,22>iUSING "itttttttttt" 

:SC 

430 L=L-.20 

490 IF CU-;>0 THEN 350 ELSE TBL=TBL + l 

500 GOSUB 1270 :: GD5UB 1300 :: GOSUB 12 

70 : : GOSUB 1320 

510 GOSUB 1570 

520 GOTO 290 

530 CALL S0UND(500,-6,0) : i CALL MOTION(# 

3,0,0.tt4,0,0,tt5,0,0,#6,0,0) 

540 CALL L0CATE(*3. 122, B. *4, 57, 242, »5, 16 

5. B, #6, 90, 242) 

550 CALL DELSPRITE(ttl,tt2)n CALL SPRITE( 

1(23,92, 16,E,W,7,7.#24,92.16.0,W.-7,-7.#2 

5.47, 16.0,W.7,-7.#26,47, 16,0,W,'7,7) 

560 CALL SFRITE(*20,45, 16, 0, W, 0, 7, #21 , 45 

. 16,Q,W,0,t-7,*22, 105, 16. Q, W, 7, 0, #28, 105, 

16,0,W,-7,0) 

570 FOR 1=0 TO 25 :: CALL SOUND (- 1000, -7 

. I): : NEXT I 

580 CALL DELSPRITE(»20.*21,tt22.*23,»24,tt 

25,tt26,*2B>:: IF FIN=2 THEN FIN-1 11 GOT 

300 :s ELSE FIN=FIN+1 

590 V=V-1 :i GOTO 550 

600 CALL SPRITE(#2.33, 10,0+8,W-1) ! t L-L- 

.20 :: CALL SOUND(-330. -5, 5) i : CALL DELS 

PRITECtt2) 

610 RETURN 

620 CALL SPRITE (ttl, 97, 14,9, ( (2«V)»B)+17! 

:: CALL HCHAR (2. (2#V) +3, 32) it CALL PAUSE 

(200) 

630 RETURN 

640 FOR I*( <2#V)*B>>'17 TO 86 

630 CALL L0CATE(ttl,9. I) I t NEXT I 

660 FOR 1=9 TO 39 i: CALL LOCATE (ttl , I , 86 

) i : NEXT I 

670 CALL SOUND (300, 600, 0) i i RETURN 

680 CALL DELSPRITE(ALL) 

690 CALL CLEAR 

700 DISPLAY AT(7,11) i "GAME OVER" :: DISP 

LAY AT (8, 11) t"xrrrrrrry" it DISPLAY AT (6 

710 FOR 1=1 TO 500 STEP 10 i I CALL SOUND 

(-60, 110+ (1.5*1), 1/50,330+1.1/25,610-1. I 

/20)ii NEXT I 

720 IF SOHSC THEN HSC=SC ELSE 740 

730 DISPLAY AT I IO,3> i -VOUf VCNCI DC MTT 

tt LE " ii DISPLAY ATtl 1.3) I -RECORDl VOTR 

E NOM --t * ii ACCEPT SIZ£(IQ>ATU3,7)VAL 

IDATE <UALPHA. -. " n NMS 

740 DISPLAY AT(i8,3)t"LE RECORD EST DETE 

NU PARi" it DISPLAY AT(20,S>lNn» 

7SO DISPLAY AT(22.3)t-AVECl ■ ll DI6PLAY 

ATI22, 10HHSC 
760 TBL- 1 it CALL TOUCHE I I CALL CLEAR »l 
i RETURN 
770 CU-28 

760 DISPLAY 8IZE(7)ATI2.16) I "SCORE l" 
790 DISPLAY AT 14. I 



BOO DISPLAY ATI3.1) 

BIO DISPLAY AT (4. l> 

B20 DISPLAY AT(7, l ) 

830 DISPLAY AT (6.D 

840 DISPLAY AT (9. II 

BSO DISPLAY AT( 10. 1 

.-u jr" 

B60 DISPLAY AT ( 11. I 

B70 DISPLAY AT I 12. 1 
lu CUtr* 

B60 DISPLAY AT i 13, i 

890 DISPLAY ATI14.1 

tr jf" 
900 DISPLAY ATI13.1 

9IO DISPLAY AT(16.1 

rrr% r r" 

920 DISPLAY AT*I7.1 

tr r jr" 
930 DISPLAY AT* 16.1 

940 DISPLAY AT (19.1 

iii r r r m 

930 DISPLAY ATI20.1 

rrrr r jr" 

960 DISPLAY ATI2I. I 

rutu v tr- 

970 DISPLAY AT(22. I 

980 DISPLAY ATI23. I 

990 DISPLAY ATI24, I 

lOOO RETURN 

1010 CU-4S 

1020 DISPLAY SIZE(7 

1030 DISPLAY AT<4. 1 

1040 DISPLAY AT (3, 1 

1O30 DISPLAY AT 16,1 

I06O DISPLAY AT 17. l 

1070 DISPLAY AT (9. I 

1060 DISPLAY AT(9. I 
r. tmi r" 



Irutu 



irrr t 

jrutr 



trr t 

tr r 



trry « 



'•1 Hirrrrrtt 
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_PETIT POUCETi 

Pauvre petit poucet, trois affreux monstres sont a ses 
trousses Soyez sympa, aidez-le a les semer 

Eric DELUGE 

Mode d'empto* 

Vous devez passer sur loutes les crow mais attention, vous laissez 
demere vous des petits caittoux qui permettront aux trots monstres 
de vous survre a la trace, et tl n est pas laclle de les semer. Pour 
changer de tableau, ii taut se placer sur le losange et appuyer sur la 
bar re d'espacement 




edito 



^Jdf- 



it 001 32991 -• 

11 P0KE36879.H 

120 PE-7939 n0-7953 HW955 r»J-r933 DO— 1 -D1-I OU— 1 

127 ootosoooo 

126 POKE36070. IS 

*ee pcrepe.i pokehq.3 pokemis potehu.3 po*E799«.3 
40i print-* sc print-v -v 

49? FORT-iTOlO NEXT POKEM0.33 POKEM! . 32 POXErfJ.32 
406 IFPE-HOTMENV-V-1 GO$U*40OOO IFV-OTNEN6O0 
487 IFPE-mTHENV-V-1 OOSlj 048000 IFV.OTHEN600 
400 IFP£**1UTNENv-v-l G0SUS40000 Ifv-othEmSOO 
410 nr>«>*Do ni-ni*DI nu*MU*DU 
42o iFPEEK«no)«eiMEHDO—i» no-no*i» 

430 lFPEEK<ni»OTHENTjI*-Dl M-f1l*DI 

440 IFPtEX<MU>-OTKNDU— CU MU*»1U*DU 

430 IFP£EK<NO*i).^THENDO-l OOTOSOO 

455 lFPEEK(f«-lWTHEHDO—l OOTOSOO 

460 lFPEEK'Hr>22J-2tHEHD0— 22 OOTOSOO 

463 IFPEEK<W*22>-2THEND0«22 OOTOSOO 

470 IFPEEK<M*l>-2T«HDI-l OOTOSW 

475 IFPEEX(HI-1>*2TNENDI — 1 OOTOSOO 

400 lFPEEK<ftI-22>-2THENDI— 22 00TQ900 

405 IFPEEKtMI*22>-2TMENDI»22 OOTOSOO 

406 lFPEEK<,nV*t — 2TMENBU-1 OOTOSOO 
487 IFPEEK<MU-1>-2TMENTJU— 1 OOTOSOO 
408 , IFPEEK(HJ-22)-2TKNDU— 22 OOTOSOO 
409 lFPeEK(rtJ»22,-2IMENDU-22 GOTO3O0 

490 I"INT<RNJJU)»20) 

491 IF1-0THENDO-1 DI>-1 DU-22 

492 1FI-1THEH0O--1 01*22 DU— 22 

493 IFI-2TMEND0-22 01—22 DU-I 

494 IFI-3THEND0—22 DI-1 DU—1 
SOO P-PEEK(197> 

906 IFP-I7THENPOXEPE.2 DE— 22 PE*P£*DE P0KE36073, 135 

510 IFP-33TMEMP0KEPE.2 DE-22 PE-PE*DE P0KE36873. 133 

315 IFP-29TNENFOXEPE.2 DE— I PE-PE»DE POKE3607S. 1 35 

520 IFP-37TMEMPOKEPE.2 DE-1 PE"PE»DE P0KE36873. 135 

330 ]FPEE*<PE>-4T«N&C-Sf>10 

563 IFPEEK<PE)"OTMENDE— OE PE-PE*DE 

370 IFPEEK<P£>"5WDP"32TKr#*RlNT-a»( "V F0RT-1T01000 NEXT 0OT011 

599 POKE36073.0 OOTO 400 



600 PR1NT"8J0V "V F0RT-IT02000 NEXT Pf* E 36069 . 240 PRINT "^MMUEU TERMINE" 
610 H»IMT"««0)000006COK SC P0KE36075. 170 FORI»HOSO0 NEXT POKE 368 73. 120 
620 FORT>1T0500 NEXT POKE3607S, 170 FOBT-1T0500 P0KE36075.8 NEXT 
630 FQRT-IT0500 NEXT PRINT "3H0T O.R FuRT*|TO508 NEXT v-3 POKE 36869. 235 GOTQll 

2oeeo print -^mmmmmmjH peu oe patience- "- 

20010 POKES2.20 R0KE36.20 CLR 

20030 R-7168 F0Rl"«T0ft*31 1 POXEI .PEEK<l»23*O0> NEXT 

20040 F0RL-OTO47 RERDF POKEft+L.F NEXT 

20030 DATA2S3. 136.233. 17.255, 136.255.17 

20060 DftTft262S. 8. 68. 90-24. 36.66 

20065 DATAO. 0,0, 16,8.0.0 

20O7O WTA19566.66. 36, 126,219.255,60 

20073 PRTR0.8. 8. 62,0,0.0.0 

20000 DATH24.68. 126.233.233, 126.60.24 

29999 P0KE36069.233 PRINT-^OOr v-3 00TOI1 

30000 PR1NT-I— 



I PRINT 'Of 



30030 PRlNT'-IDDDtDDDODDDODDDODDDDO-. 

30040 PPINT"ODOD0D0D0O0D0D0DeD00De-. 

36038 PRINT-aODD0DDDtDDD0DDD0IIDDD0-, 

30060 PR1NT-I 

30070 PRINT -8D0D1 

30000 PfllNT-r— 

30090 PRINT"DDDDD0D000DDD00DeDD8De 

3O10O PRINT 

30118 PR I NT "I 

30120 PRINT*) 

30130 PRINT-tDDDDOOtDtOOODOtDODDDO 

30140 PRINT - 

30130 PRIMT-I 

30160 PR 1 N T -000 WPppppppppO POOOt 

30100 PR1NT-ID00DDD0DDD0DDDODDDDD0 
»190 Pftim-UDDOttinMOBDailSnDOM 
30200 PRINT "aDOODOD0D9DOD0MDOD9DO 
30210 PRINT-tDDDMODDODDDODDDODDM 
30220 F0RT-0T02I POK£8164«T.O NEXT 

39999 O0T0126 

40000 P0KE36076I28 F0RT*IT010O NEXT P0KE36876, 170 FORT-1T0100 HEX! P0KE36876.8 
40010 RETUPH 0) 




i-Jl — 



-~1&L- J*%: 



CRAZY RACE 



Les fous du volant vont etre contents. Voici un beau 
programme qui va leur permettre de router a tombeau 
ouvert, de provoquer de terhbles accidents et malgre 
tout de repartir aussitot! 

Christophe POIRIER 



e REA CRAZV-RRCE 

1 REM PROORRfRC POUR COmODORE 64 

2 REM PAR CMRISTOPME POIRIER 

3 RET. 

« P0M93 * F0KE9C 01 MWM0M 

3 DATR 174.8,228.224.125,200.12.174,34,3.224.20.208.1.96.238 
IS DATA V. 3. 96.224. 126,200. 12. 174. 34, 3. 224. 3. 20B. 1 .96,286 

23 DATA 54.3,96,224.119,200.12.174,4.200.224. 161.200. 1.96.230 

39 DATA 4.208.96.124. 123200.11. 174.4.200,224.63.208. 1.96.206 

49 DATA 4.200.96, 174.54.3.224,20.208, 1.96.174.4.200.224. 1*2 

99 DATA 144.1.96.224.62,176,1.96. 174. 231. 3. 224. C.200.C. 162 

69 DATA 0.142.231.3,96.294,232,3.188.232.3. 192. 10.240,9.7* 

79 DATA 95.192.169.8.157,232.3.238.231,3.76.88.192 

OS DATA 174.54.3.224.28.288.1.96.174.232,91.142.97.3,174.247 

99 DATR 51. 142.232,31. 162. 14.224.0,200. 3. 76. 164, 192, 189.232.31 

185 DATA 137.233.31282. 76,147. 192.174.97,3. 142.233.31.96.230.56 

119 DATA 3, 174. 56-3, 224. 18. 248. I. 96. 162.0. 142. 9C. 3. 189. 8 

129 DATA 280.201.161.208,3.197.98.3.201.63.208.3.197.50,3,189 

139 DATA 90. 3. 201, 161, 200, 6. 222, 0.208. 76, 220. 192. 234. 8. 288. 224 

143 DATA 2.240.3.232.232.76.107.192,96 

195 DATA i«2.8. 189. 62. 3. 281. 299. 248. 3. 32. 48. 193. 172. 94. 3. 192 

169 DATA 19.48.24.222.1.208.222.1.200.109.1.200.201.2.144.3 

179 DATA 76.30.193.169.0.157,1,200.76.27.193.294.1.208.109.1 

189 DATA 288. 201. 255. 200. 3-32. 40. 193.224.2.240.3.232.232.76.232 

199 DATA 192-96. 173.27.212.201.63. 16. 1.96,281, 161. 144. 1.96.197 

209 DATA 8.288. 169. 295. 197. 62. 3. 96. 162. 8. 168. 01. 169. 8. 141, 4 

219 DATA 212.169,9.141.1.212.169.299,141.8.212,142.9.212.169.19 

229 DATA 141 .24.212. 140.4.212.96 

239 DATA 169. 29. 237. 161. 0.24. 160. 8. 281. 18. 144. 7, 200, 233. II. 201 

249 DATA 18/176,249.189.48.141.4,6.162.1.142.4.218.192.189.48 

293 DATA 14) .3.6. 142. 3.218.96. 162.0. 168.6. 189.232.3. 109.40 

269 DATA 193.192.4.169.1.153.192.216.232.136,224,6.248.3.76.136 

275 DATA 193.174,161.8,224.29.200.1.96,172,94.3.174.94.3.202 

283 DATA 208.253.136.200,248.32.0.192.32.67.192,32.123.192.32.129 

299 DATA 192.32.171.192.32.230.192.32.62,193.22.93.193 

309 DATA 174. 38. 288. 224. 246. 240. 3, 224. 249. 240, 3, 76. 132. 193. 162. 29 

319 DATA 168, T29. 32. 66. 193. 162. 0.142. 92. 3. 162. 191. 142. 298. 7. 206 

325 DATA 3. 208. 206-4. 288. 206. 3. 200, 206. 4. 208. 238. 298. 7. 174.290 

339 DATR 7.224, 196, 248-13. 168. 198. 162. 298. 202. 208, 293. 136. 280. 248. 76 

343 DATA 233. 193. 238.92. 3. 174. 92. 3.224. 9. 248. 3. 76. 220. 193. 162. 192. 142. 298. 7. 96 

399 FOR1-8T0942 READS S-S'R 

369 P0X£49132*I.A MfXT 

375 IFS066461TMENPRINT-ERREUt DE DATA * END 

1800 

1001 REN INTlALtfATION 

1002 

1009 DATA15. 253. 0.28. 243. 120. 19. 299. 0.33. 234. 192. 63. 293. 192. 95, 234. 192. 19. 19.0 

1010 0ATA30. 7. 128. 20. 3. 120. 20. 243. 120. 29. 291. 120. 31. 13. 128. 13 139. 8. 119. 1 18. 224 
1813 DATA1 19. 158. 224. 119. 1 18. 224. 119. 294. 224. 2. 148. 8.4. 2. 8. 63. 299. 193. 63 

1020 MT0299.I92 

1829 F0R1-8T062 READft POKE 1*12308. ft NEXT 

1030 DATAO.e.8.8.1.8.8.8.8.8.8.8.20. 1.240.93.293.243.227.254, 7.191.293.231. 191 

1035 DATA139. 243. 299. 10. 107. 294. 29. 1 19. 294. 29. 1 19. 255. 10. 107, 191- 139. 243. 191 

1040 0RTA353. 231. 227. 294, 7. 93. 293. 243. 28. 1.248. 0.0. 0.0. 0.0. 0.0.0 

1043 FOR1-8T062 REAOA P0XE1*12392.A NEXT 

1090 DATA63. 253. 192, 63, 239. 192. 4. 2. 0.2. 1*8. 0.1 19. 294, 234, 119. 110. 224. 1 19. 190 

1855 DATA224. 119. 119. 234. 19. 199.8. 31. 19. 128. 29. 291 .128. 28. 243. 128.20.3.120.30.7 

1060 DATAI28. 13- 13. 8- 33. 294. 193.33, 254, 192. 99, 294. 192. 19. 259.6-28.243. 120 

1068 DATA13. 299.0 

1078 F0RI-OT062 READA P0KE1*13416, A NEXT 

1079 DATB8. 0.0. 0.0. 0.0. 8.6. 7. 128. 36, 183. 191. 186. 112. 127.219. 111.293.293.183 
1880 BftTft240. 129. 1 18. 172. 63. 183. 06. 31, 103. 86. 31. 111. 172. 63. 183, 248- 129. 11 1. 295 
1809 DATA393.II2. 127,219. 183, 191. 186.7, 120. 36, 8. 6, 8, 8. 8. 8. 8, 6, 8.0,0.0 

1890 F0RI-0T062 KEASA POKE 13480* I. ft NEXT 

1100 P0KE96334.PEEK< 96334 >ftKD394 P0KE1.PEEK< 1 >AND291 

1103 F0R1-48TO98 FORJ-8T07 

1118 POKE 12200* I CO* J, PEEK (93340* 1 80* J) 

1113 NEXT NEXT 

1120 FOR1-1TO20 FQRJ-0TO7 

1135 -OrF13312»IR0*J,PEEK<3324O*I-»*J> 

1130 NEXT NEXT 

1133 POKE l.PEEKd; 084 -0KE36334 . Pf EK<36334 >0»! 

1145 F0R1-OT07 POKE 1 3288* 1,0 NEXT 

1130 FORI.8T07 POKE 13396* 1.0 NEXT 



COMMODORE64 




1191 
L180 

un 



FORI-OT07 P0KE13568*!- 259 NEXT 
PRINT-T N8-1 

P0Ke53272,<PEEf<3?Z72;HHD248»*12 
P0KES3281 . 6 OOSUDSOOO 

REM JEU 



2803 R-5J24* P0KEA*23,7 P0KEA*29.7 

2818 P0KEA*39.1 P0KEA*48.1 P0KEA*4 1 . 1 3 P0XEA*42 , 1 

2019 POKER, 100 POKEA*l, 127 P0KEA*2.198 POKEB*3.1 POKEA^210 POKEA*3,20O 

2030 P0KES3264.8 POKE 34 20 7 , 233 P0KE3429O. 129 

2025 P0KEA*6-S0 POKEA*7.204 P0KE53278.PEEK<53270>OR255 POKE822.28 

2030 POKE830.253 POKE832.235 P0KE824.8 P0KE83S.8 P0KE828.99 P0KE826.161 

2833 IFH»-lTNENF0RI-999T0|ee3 POKE 1. NEXT 

2048 F0RI-2848T02843 POKE 1. 192 NEXT POKE 1 837. Ni*40 PWE96129. 1 P0KEA.21255 

2045 POKE 1 99.0 HAIT190.1 P0KE161.8 P0KE162.8 $V$49540 N8-NB-1 

2050 IFPEEK<161»*29TMEN»O-f0*2000 

2099 FOR1-0TO9OOO NEXT 1FNI3-0THEN2000 

2O60 PRINT-Sr P0KE33201.7 NO-1 P0KEft*2I.8 P0KE53272.21 00SU17000 OOT01163 

4997 

4998 REn MFFICMAOE PLAN OE JEU 

4999 

5000 PRINT-T FORI-OTOIl PRIHT-i 

5003 PRINT-88 

3010 pRim-ae 

3615 POKE2033.160 P0KE96299-7 

3020 F0R1-1O96T01103 F0RJ-OTO4 P0KE34272* 1 .484J 4 NEXT NEXT 

3023 F0RI-i41feT0l423 F0RJ-0I04 POKE54272* I *40e J . 4 NEXT NEXT 

5030 F0RI-1776T01783 FORJ*0TO4 P0rE54272.I.40»J 4 NEXT NEXT 

5833 PRINT-8JBrTA»<33>-«0SCORE0 " 

PRINT'8JRR8RM8a08rTAI<33)-81Er0>$0 " RETURN 

RETURN 



90«9 

999 ' 

■ m 

9994 



H1I 

one 
tB3«a 



t-frr 



AFFICMAOE AOOE-0'ENPLOI 



6997 
6990 f 
6999 



P0KE33281.7 PTJKE532O0.7 PRlHT-flr TAJ(13>--RHZV--ACE- 
PRINT-«xOUS ETE5 SELECTIONHE POUR LE ORAND-T»IX- 
PRIHT* XOUS DEVEZ C80AVER OE ROULER SPM8' 

PP1HT"« ACCIDENT PENDANT DEUX MINUTES. " 

PRIHT-a XOUS AVEZ DROIT A UNE VOITURE DE* 

PRINT-0 RECNANOE ftU PREMIER ACCIDENT. - 

PR1NT-8 81 VOUS N'ftVEZ PRO D'NCCIDENT ftU 90UT- 

PRINT-8 DES DEUX fllNUTES VOUS AVEZ UN VOMJO DE" 

PRINT-V2000 PTS ET DEUX nlNUTES SUPPLEAENTAIRE6* 

PRINT' TAPEZ UNE TOUCME LOROOUE VOIRE VOITURE- 

PR1NT-8 ftPPARftlTRft SUR LE 8AS-C0TE. " 

PR1NT-80 "HT1EHTEZ UN INSTRHT 8VP. . . ■ RETURN 



CLASSE-ENT 



ran 



rota 

7718 
7919 

rjM 

r«0t 



) R*>" FORI-ieOOTOlOOOSTEP-l < 

J IFSC>1080TNENSC-SC*8O 00*0 

I F0RI-1TO3 IFSC>-9C<1)TMEN7828 

) NEXT QOTO7O40 

I INPUT'-aBUEL EST vOTRE NOP. "J Ml 

) FORJ-3T0ISTEP-1 8C( J»l >-SC< J) N8< J»D*N8( J> NEXT SCCI )-SC N»<D- 

I 1F1O1THEN7048 



(PEEKd)) NEXT 8C"VRL(R0)-: 



PRINT-^rTA3<10>-8«>ICI LE CLPSSEAENT ■ 

PRINT-rTA»(12)-U CHAHPION EST " X* 1 OOSU07 1 88 

IFSC<2)(>0THENPRINT-0-TAI(12»-LE DEUX1E-C EST - X*2 0OSUD7188 

IFSC<3X>8THENPRINT-rTft»<12>-LE TROISIEHE EST * X-3 000UI7I00 

PRINT-8JBB APPUVEZ SUR UNE TfJUCNE POUR REJOUER. 

P0KE198.8 UAIT198.1 RETURN 

PRINT'rTAJ((40-L£N(H8(X)))/2).-arNI(X> 

PR I NT- 188860 VEC UN SCORE DE-SC<X) -POINTS" RETURN 

AI*-1RAV0 -*NJ(1)»- TU ES LE CHAJfMOM- 

PRINT-^B880800rTA8((48-LEN(A«))/2>.ft8 

A-33248 P0KE2848.195 POXEA* 1.130 P0KEA*2I.l 

F0RI-8T0353 POKEA.I SVS49478 NEXT P0KE93264. 1 POKEA.0 

FORI-0TO19O POKEft. I SVS49470 NEXT RETURN 



' m 



t in mmrttm 



C est ie pnntemps ' Les c 
sObrouent sur les branches des 
artxes qui vibrent sous les mon- 
lees de sOve. Oans i herbe verte 
encore tendre les insectes bati- 
folent, les vers de lerre se 
chauftent au soieil naissant et 
des milliers d'animaux vont el 
vwnnent, neureux d assister une 
fois encore au miracle du reveil 
de la nature 

Soudam. vrooooooooooum 

Ihomme amve, I'hommo est 18. 
unsensible a ces cnarmes prime 
sautiers, ii avance. la t/oncon- 
neuse a la main L ecorce eclale 
sous les dents d'aoer de son 
engtn du diabie, ses bottes ecra- 
sent pa/ nulltefs les msectes at 
fc+oe. les artxes secuiaires ecra 
bouilient en tombant les petits 
mammtferes el ii ne reste plus 
des vers qu une intame charpte 
Mais pourquoi lant de cruauto ? 
Pourquoi cet homme sacharne 
t-il a dOtrutre ce que Dieu a 
construrt ? Pourquoi lant de li- 
chete ? Pourquoi ? Pourquoi ? 
HO. cong. on en a besorn des 
artxes pour fabnquer du papier ! 
Les bestKxes deoueulasses dont 
tu panes, on en a nen a fouire ' 
II taut bten qu on le sorte ce ca- 
nard, tu crots lout de meme pas 
quon va arreter de faire Hebdo- 
gicei sous pretexte que c est un 
journal et qu <l taut abattre des 
artxes pour ce (aire ? Va done, 
he OcokJ < Adople un hanneton, 
h« malade • Tu imagines pres 
de 100000 lecteurs de cette 
ineflabte publk^tKXi on manque 
pour 'raison de pnntemps" ? 
Vive le papter. a mod les 
artxes I 

Tiens. cette somaino )o tais 
dans I anti-ecotogtsme pnmaire, 
cost pas plus mal que de lantt- 
communisme pnmaire ou de 
lanti-le Penisme pnmaire Vous 
avoz quand meme droit une 
information informative de pre 
m*6re bourre : vous etes pres de 
100 000 8 nous lire cheque se- 
maine. A nous lire seulement, 
pas a nous acheter car les pho- 
tocopies circulenl sans problo 
mes ' Vous n'avez pas honte de 
ptraler voire journal prOferO. 
bande de petits touteurs de gros 
bOnefces en lair "> 



Gerard CECCALDl 




CA, C'EST 
LA MEILLEURE 

Ca a de quo! 'aire marrer, c est 
une pub pour un produil tour- 
nanl sur IBM qui permet de ra- 
joutor des tonctions telles 
qu une calculatnce. un presse- 
papwr. un calendrter. enfin ce 

Se fait le Mac el pas (IBM 
' qui est fort, cesl qu ils pro- 
posent 2 versions Une pre- 
miere protegee a S 54 et une 
seconde non protegee 8 S 84 
Cest d dire que vous payez $ 
30 pour la protoctxxi. Ce qui 
est encore plus fort, cest que 
si i 'on regarde en bas de la 
pub. ecnt en petti, on saper- 
coit que les utihsateurs du PC|r 
ocHvent obltgatotrement se pro- 
curer la version non protegee 
El si on no veut pas acheter le 
sort, il faul payer 30 dollars en 
plus? 

$5 495 

copy protected 

$ 84 95 

noncopy-nftMected 




PIANO 



Si musique vous tente 
Et si doigts vous ddmangent 
Pref6rez un micro 
A un couteux piano 

Frederic CARBONERO 



Mode d'emptoi 
EVIDENT..! 



10 REM •••••••••••*•••••••••••••••••••••••••• 

20 REM • — PIANO -•- • 

30 REM • TRS-BB .MO0ELE8 14 3 • 

40 REM • FREDERIC CARBONERO .LE 20/02/63 • 

30 REM •*aaaaaas.****»******aaa***********aaa 

100 CLSIPOKE 16361,200 i POKE 16327,127 

110 POKE 16326,2041 POKE 16327,127 

120 DATA 203,127,10,203,36,69,62,1,211,233,16,234, 

69,62,2,211,233, 16,234,37,32,239,201 

131 FOR A-32716 TO 32738 

140 READ St POKE A, 8 

130 NEXT A 

160 CLEAR 3000 

170 CL8 

180 PRINT CHRSI23) 

190 PRINTS 332.* •••♦♦**♦♦♦••••■ 

200 PRINTS 396,* ••• •••• I 

210 PRINTS 4ft0,'*«« PIANO •••*! 

220 PRINTS 324," •»* •••■■ 

230 PRINTS 388.* **•+♦♦*♦♦♦***" | 

240 FOR A-l TO 1300INEXT A 

238 CL8 

400 REM • DESSIN DU PIANO • 

410 FOR A-9 TO 38 

420 FOR B-ll TO 14 

430 SETIB.A) iSET<B*16,A)iSET(B*21.AHSET<B*A4,A>i8 

ET<B*49,A)i3ET(B*63,A)iS€T(B*70,A)i8ET(B*93,A)«NEK 

T B 

430 FOR C-109 TO 114 

468 SETtC.AXNEXT C 



f"""^ 




TRS 80 



480 FOR B-20 TO 21 

490 BET(B,A>ie£T(B*>21,A)iSET(B*28,A)i8£T(B«-49,A)iS 

ET(B*70,A) ISET(B*77,A)INEXT B 

310 NEXT A 

340 FOR A-23 TO 38 

330 S£T(13,A)ISET(16,A)ISET(18,A)I8ET(19,A)ISET<22 

,A)i8ET(23,A)iSET(23,A)iSET(26,A)iSET(36,A)i8ETt37 

,A)iSET(39,A)i8ET(40,A)t8ET(43,A)iSET(44,A)i8ET<46 

,A)i0ET(47,A)i8ET(30,A)i8ET(31,A)iBET(33,A) • SET (34 

,A) iSET(64,A)tSET(63,A)i8ET(67,A) iSET<60,A> 

360 8€T(7l,A)iSET(72,A)iSET<74,A)iSET<73,A) tSET(83 

,A> ISET(B6,A)18ET(B8,A)1BET(B9,A)I8ET<92,A1I8ET<93 

,A> ■8ET(93,A)iSET(96,A)i8ET(99,A) I8ET< 100, A) I SET) 1 

02,A)tSET(103,A) 

380 NEXT A 

390 FOR A-9 TO 116 

600 SET(A,8>I8ET<A,40> 

610 NEXT A 

620 FOR A-8 TO 40 

630 BET(7,A>iSET(e,A>i8ET(117,A)iSET(lie,A> 

640 NEXT A 

700 PRINTS 902. "DO RE MI FA SOL LA 81 DO RE MI 

FA SOL LA SI DO* 
710 PRINTS 70, *ZSXDCVGBHNJHQ2U3E 
It 3 T ft V 7 U 1*1 
800 K8-INKEYS 
810 IF K0<>°* GOTO 890 
820 GOTO 800 

090 KJ-ASC(K»)-49tlF KJ<1 OR KJ>41 THEN 800 
900 ON KJ GOTO 37300,38300.800,40300,41300,42300,8 



00.800.000,800,800,800,800,800,800,800,34000,32000 
, 31300. 39000, 800. 33300. 34300,44000, 33300, 800. 800,3 
6O00. 33800.800.800,37000. 10000,30300, 41000,43000 
3000.38000.31000,42000,30000 
910 GOTO 800 

S-USRI8398) "GOTO 800 

B-USRI9103) iGOTO 800 

B-USR (9607) i GOTO 800 
31300 B-USRI 10624) i GOTO BOO 
32000 B-USRI 12132) 'GOTO 800 
33000 B-USRI 14191 ) iGOTO 800 
33300 B-U8R< 13209) IGOTO 800 
34000 »-USR< 16484) .GOTO 800 
3430O B*UBR< 17739) I GOTO B00 
33000 B-USRI 19034) IGOTO BOO 
33300 B-USR( 20309) I GOTO BOO 
36000 B-USR(213B4) iGOTO 800 
37000 B-USRI231 14) iGOTO 800 
37300 B-USR<23879) iGOTO BOO 
38000 B*USR ( 24899 ) i GOTO 800 
38300 B-USR(236ft4)iG0TO BOO 
3 9000 B-USRI 26684) iGOTO 800 
40000 B-USRI 27939) iGOTO BOO 
40300 B-USR< 28469) iGOTO 800 
41000 B-USR (29234) I GOTO 800 
41300 B-USR t 29999 ) i GOTO 800 
42000 B-USRO0764) iGOTO 800 
42308 B-USRI 31274) iGOTO 800 
43000 B-USR (32039) iGOTO 800 
44000 B-USR (36) iGOTO 880 



LE DERNIER DES SIOUX 



HECTOR 



Comme a ta teloche le mercredi, jouez au dernier des 
Sioux. Court, mais super ! 

JOLY Phibppe 

Mode demptoi : 

II 001 darts le programme 



10 •iiiiiiiiiiiiiiiiiiuii 
20 '• LE DERNIER • 
30 '■ OES SIOUX ■ 




SO "t JEU PROPOSE PAR t 

60 '• JOLY PHILIPPE • 

70 '• HECTOR 2HR Bill I 

80 lillliltiiiiiiiiiiiiiii 

90 «lp«ipOkat.FFl0,0 

lOO color 0,6,2, 1 

110 go*ubt330 

120 output ChrSII94),20,19O, lipaus* .3 

130 plot 83,193,70,110,3 

140 plot 90,190.60,100,2 

130 sound l,312tp*us* .Timound 1,513 

160 output "LE", 113. 180, I 

1 70 paus* , 3 

100 output chr»<l«4),20,190,4ip*ua*.3ioutput ehrSt 
194), 20. 170, Iipaus* .3 

190 lound l,312tp*us* .3t sound 1,313 

200 output "DERNIER", lOO, 160, 1 

210 p*us* .3 

220 Output chr»<194) . 20. 170.4, paus*. 3i output chr»l 
1941,20. ISO, lipaus* .3 

230 »ound l.S12ip«us* .3iaound 1,313 

240 output -DES". 1 10, 140, 1 

230 pauss .3 

260 output ChrS(194),20.l30.4ip«u**.5toutput ef>r*( 
194>,20,130,lip*us* .3 

270 sound 1.312tp*us* . Jitound 1,313 

280 output "SIOUX ",106,120,1 

290 X-lOOlY-lOlA-U3iB-60 

3O0 for 1-1 to ISllin* X,Y,A,8,liX-KTin«.t 

SlO output "w-, 113,66, 1 

320 Una llO,4O,12O.40.3il in* 112,30,118.30,3 

330 X-73ifor 1-1 to 3ioutput chr»( 193) , X, 43, 3i X-*- 
rotnant t »-!40ifo- 1-1 to 3 1 output Cnf •( 1931 , X,43,3l> 
-x*70in»Kt 

340 uiuti 3 

33© *er**n 2O.220.2O0, 15Sicla2 

360 icrno 22,218, 193. ISOicl*! 

370 prtntipnn'- • RE&LES DU JEU t - 

380 printiprmttp*n4iprint~ -2 EOUIPES TIRENT A TO 
UR DE ROLE SUR LES C I fc.ES EN 1NDIOUANT L 

A LIGNE ET LA OUANT I T£ CHOISIE (MAX IHUrl 31 - 

390 prinltpnnt" -L'EOUIPE QUI A0AT LE DERNIER 

DES SIOUX A PERDU" 

400 ponStprintiprlnt" APPUYEI SUR UNE TOUCHE'i 

pan 2 

410 A4-in.trt.lli 

420 -up* 

430 di* Cl(4)iCI ll»-7tCl I2)-3iCI(3)-3iC1 (41-1 

440 I-SSlY-BO 

430 output "A", 43,33,1 

460 for I-l to 7ioutput chrtM 193) . X, Y,3i X-X*20ina- 
t 

470 X*73tY*120 

400 output"B",63,93,l 

490 for I-l to 3i output chr»(1931 ,X,Y,3i X-X*20in*x 
t 

300 X-95iY-l60 

310 output-C", 83. 133,1 

320 for I-l to 3lOUtput curt. (19? I , I. V. I; 1-1 »20l n*K 

t 

330 output "D". 103, 173, | 



.tchrS(7>igoto600 



output chr*u93> , 113.20O.3 

3SO output chr»(192> ,2lO,40, 1 

S60 output chr»(I44> ,20,40, 1 

370 tcrttn ao,22B,9O,20iclslip*n4 

380 output'QU TIRE1-VOU8 ",88,220,4 

390 X-OlY-O 

600 uritn 193. 225, 30, 20t el*2 

610 input R* 

620 H lan(R*K>2 thn print chrl I 7) i ooto610 

630 RtS-laft*(R*. 1) 

640 R2S-rlght6<RS, 1) 

630 NT-val(R2*> 

6*0 14 NT>3 or NT<1 th*n i 

670 If RtS*-«" than CM*l 

680 If Rl»-"b- than CH-2 

690 If R14--C- than CH-3 

700 If R14--CJ- thtn CH-4 

710 If NT>CI(CH> than ton* 200, lOOi goto600 

720 CI (Cm -CI icmi-nt 

730 tf R1S--*" than H-70igoto770 

740 If R14--D- th*n H-l 10igoto770 

730 if RIS-"c~ Ihon H-130) goto770 

760 if RlS--d" than H-I90igoto770 

770 for 1-40 to H staplOioutput chrS( 192> , 210, 1 , 1 1 
output ch.rail92),210.1,4iton*3O0.2in*Kl 

7BO output chrt»U92>,riO. I, 1 

790 for C-l to «) iR:») 

BOO paus* .6 

810 X-2O0 

820 output ">-, 203, 1-9,3 

830 sound l,Sl2ip*us* . 3 t sound 1,313 

840 output ->-.203. 1-9.4 

830 output". ",X, 1-7, 1 i output-. ".1*3, 1-7, 4| 1*1-3 

860 If point <X, 1-51-3 th*n plot X-9, J .4. 16,40. 4i go 
toOOO 

870 gotoBSO 

aeo newt 

B90 pausa .8 

9O0 output err* (192) ,210, 1,4 

910 for S*H to 30 stap-IOiOutput chr* ( i92i .210.8. 1 
(output chr«(i92l ,210,8. 4iton* SOO.2inai.ti output enr 
4M92I.210.S, 1 

920 icrtm 193.223.30,20tcl*4 

930 if Cl'Il*CK2>*CI(3)*Cr<4> l than gotol490 

940 ' cot* gaucha---- 

930 e-o 

960 K-OiY-O 

970 Krun 20, 223, 30, 20« cl »3 

980 input L* 

990 if l*>n<LS><>2 than print chr»(7) |goto980 

I0OO Ll*-laf tstLS, 1 > 

1010 L2S-rtghtSILS, 1) 

1020 MT-v*I (L24I 

1030 tf NT>3 or NT<1 tn*n pr i ntchrS ( 71 i goto980 

1040 if LIS-"*" than CH-1 

1050 if LlS*"b" than CH-2 

1060 if LlS-"c" than Ch-3 

1070 If LlS-"d" tri*n CH-4 

1000 If NT>CIICH) th*n ton* 20O, lOOi goto9BO 

1090 CI (CH)aCI ICHI -NT 

1100 if LIS-**- th*n H-70tgotoll40 

1110 if L1S--R* than H-110rgotoll40 

1120 If LIS-"c" tn*n H-130igotOl 140 

1130 1* LlS*"d" than H-190t gotol I 40 

1 140 for 1-40 to H *t*0 101 Output chrll |94i , R), ; , [ 



output chr*(l94),20,l,4iton* 300,lm*.t 
1130 output chrS(194),20.I, I 
1160 for C-l to v*l (L2S> 

1170 D4.US* .6 

1 ISO X-40 

1190 output "<",X-2, 1-9,3 

1200 sound l,312lp*us* .3t«ound 1,313 

1210 output -<", X-2, 1-9,4 

1220 output". ", X, 1-7, 1 t output ".-,X -3, I-7,4tX-X*3 

1230 1* point (X,I-0>-3 than plot X-6, 1*4, 20, 40,4tg 
oto!230 

1240 gotol 220 

1250 n*-t 

1260 p*u«* .0 

1270 output chrS(!94).20,l,4 

1280 for 5-M to 30 StVp-IOiOutput chr«( 194) ,20,S, 1 
loutput chrSI194) ,20,S,4i ton* 300, 1 incut i output chrS 
(194) .20.8. 1 

1290 *cr**n 20.223,30.20tcl*4 

1300 p*u*« .8 

1310 If CI Ui*CI (2>*CI <*.)*C! (4i ■- I than gotoMlO 

1320 goto600 

1330 * cr**tion C4r*ct*r*« 

1340 d*t* 34,16,0.224,0,224,0,0,3,248,0,224,0,224, 
0,64,1,240.3,248,3,248,3,248.3,248,3.248,199,248.47, 
248. 61 . 248, 37, 248, 0,8,1, 248, 3, 240, 3, 240, 3, 240, 3, 176, 
1,176.1, 176. 1.176,1. 176, 1, 176,1,176,1,176, 1, 176, 1,17 
6,0,0,3, 184 

1330 d*t* 16,24,16,32,16,112, 16,0.0, 1 12, 16. 1 12, 14. 
32.16.248,17,248.17,253,17,233,17,253, 17,253, 19,233, 
31,253.30,251,16,249,16. 1,16,249, 16.249,16,249,16.24 
8,16,216,16,216,16,216, 16,216. 16,216,16,216,16,216,1 
6.216, 16,216 

1360 data 16.216,16,0,17,220 

1370 d*t« 14. , 14, , . ,63. 128, 1 4, , | 4, , 4, , 3 1 , ,63, 120.6 
3, 128,63,170,63,195,63,196,63,248.63, 120, 63, . 32, ,63, 
,63. 128, 31, 120, 31. 128. 27,, 27,, 27,, 27,, 27,, 27 ,,27,, 27 
. .27, .27, .27.. ,,59, 128 

1380 raster* ifor 1*45036 to 43036«203i r»*a vipok* 

:.vin»«t 

1390 pok* 24548, l76lpoK* 24547,0 

1400 raturn 

1410 p*us* .6 

1420 X-200I 1-40 

1430 output"}-. X, 1-9,3 

1440 sound l,512tp*us* .3i*Ound 1,513 

1430 output ">",X, 1-9,4 

1460 output".". X.I -7,1 i output". -,X*3. 1-7. 4tX-X-3 

1470 if X-20 than plot X-9, I«4, 23,40,4iEO-l tQOtOlS 
70 

1480 goto!460 

1490 pausa .4 

1300 I-33il-40 

1310 output"<",X»3,l-9,3 

1320 sound l,512ip*u*a . 3i sound 1,313 

1330 output -<",X. 3, 1-9.4 

1540 output". ",X, 1-7, 1 i output". ",X-3. 1-7. 4iX*X*3 

1330 If X>205 th*n plot X-9, 1*4, 30,40, 4iE0-2t gotol 
370 

1560 goto I 340 

1370 icrtm 30,150, 170, 60icls3 

1380 prlntip*n 1 

1390 print- L'EOUIPE No "|E0t - A GAGNE" 

1600 prtntiprtnt" VOULEZ-VOUS REJ0UER7" 

1610 A4-instrS(ll 

1620 Hlpaitf AS--0" or A*-"o" than run420talsa tnd 



HI-CO-CA 



II n'y a pas a dire, des donn6es en diagrammes c'est 
vraimenl la classe. pour preuve cet utilitaire d'excel- 
lente qualite. 



THOMSON TO 7, TO 7 70, MO 5. 



Yannick TONDENIER 



Mode d'emptoi; 

Premieremenl : Appuyer suf ENTREE 



MENU 1 : 

1 ENTREE DES VALEURS— Permet dentrer vos valeurs au cla- 
vier 

2 CHARGEMENT— charge les donnees 

3 SAUVEGARDE— sauve les donnees 
4: FIN— tin. 

Dans le cas 1 : 

TITRE 20caracleres 

RELEVES 1 a 6 releves (Nom du releve 5 caracteres ) 

DONNEES 1 a 12 donnees (Nom de la donnee 3 caracteres ) 

Dans les cas 2 el 3, appuyer sur 
C pour cassette 
D pour disquette 

MENU 2 : 

1: HISTOGRAMMES 
2 COURBES 



■ mDWT*TIOh m05 ■ 
28508 DEFGR«< l>-9.8.6,8,3,4,4,4 

285 i 9 cErcpt<2>«e.3. i.e.e. I28.i28, 128 

28520 DEFCR«<3>-6. 134.74,188,132,294, 132 
, 146 

28539 t>EFGR«'4>«e.8,e.e.e,e.e,6 

20549 DEFCRi<3>-2-4. 8. 16,16.16,16,16 
20569 DEFGR«t6>-252.3l.l6.22,22.l6.82.19 

28579 DEFGRf<7)-138. 199. 124, 1, 1 . 9, 1 .255 

29575 DEFGR«<8>"9,224,32, 168, 169,32,32,2 

24 

29589 DEFGR«<9)-35.69, 73, 148,148.147,96. 

• 

28598 DEFCR»<16>-6,4,4, 132,139, 138, 1,9 

£9699 D£FGRt< It --168,148,148, 138,74.41,1 

98,8 

D* Dlus- 1* li«n» 4 D*ut-«tr« KCCrinM. 




■4 Yannick TONDENIER vous »r«i«nte I ••• 
• HISTOGRAHflES -COUPBES t CAHENBERTS ••• 

tHI t • I". 

••••■• pour T07 76 ou T07 * 16 k ••••••• 

: CLCAR1B98,, 12^11* A( 12,6>, AtU2,6).HR» 
M2>.ND»<12),P<12>.x<l2,6>.CHI2>.PO<12> 
,DE< 12>.P0H 12,6'.T< 12>,DEK 12.6 

2 COSUB 29599 

3 CONSOLE 8,24;CLS:SCREEN 2,9,9:8—8 

4 POKE 24636,32 

5 C<l>-l"C(2>-2iCO>-3tC(4>»5iCt5)-6iC(6 
>-7 

6 GOTO 988 

7 GOTO 788 
3 GOTO 589 

9 C<l>-HC<2>"2>C(3>"3iC<4>«3JC<5)-6fC<6 

)«7iB— 8 

18 CLS: SCREEN 2,8,8 

14 LINE* 124, I68>-<319,168),7iC-e:D»8 

15 FOR K>1 TO NO 

16 FOR n-I TO NR 

17 A-A(K,H)6132'ECI 

18 D-D*A 

28 FOR I-C TO 

38 LlNEc 128*8, 168-1) -<1 36*8,168-1 >,C(H> 

48 LINE* 137*B, 168-1 >-<148*B, 135-1 >, 4 

38 IF 1-8 THEN L1N£U39*8. !68>-< 14 1 *8. 16 

9>,7 

199 NEXT I 

192 C-D 

185 NEXT n 

119 FOR 1*8 TO 3 

129 LINEU28*I*B, 166-0-1 >-U36*l *B, 168-0 

-I>,4 

138 NEXT I 

131 LINE< 128*1*8, 1 68-0- 1)- (136*1 *B, 169-0 
-I>,8 

132 LlNCi 128*1 *B, 159-0-1 >-< 136*1*8. 139-0 
-I>,8 

136 8-B*16iC«e:D-6 

137 NEXT K 
149 EC2-EC 
141 EC-EC1 

159 GOSUB 1158 
480 COSUB 1698 
483 EC-EC2 
498 RETURN 

398 CLSiSCREEN 2. 8,0: RESTORE 
593 COSUB 29989 

336 LOCATE I5.51ATTRB 1, I i COLOR 1,8'PRIN 

T'HENU :'i (COLOR 7:PRINT" 2" 

537 ATTRB 9.9 

339 IF A1IC1)-** THEN 339 ELSE 398 

339 A3»U)-CHR»<27>**F-*-i HISTOCRAHHES* 

549 A3t»2)-CMRK27>*-F-**I COURBES* 

359 A3»<3>-CMR<<27)**F***i CAnEHBEPTS" 

569 A3f<«>"CHR<(27)*-F-*-i TABLEAU OES P 

OURCENTAGES* 

589 FOR 1-1 TO 4 

399 LOCATE 9, 19*1 «2> COLOR 3: PRINT I ( A3K I 

688 NEXT I 

683 LOCATE 35,22,8:COL0R 7, 4:PR INT'STOP* 
619 LOCATE 29,23«C0L0R 5,9:PRINT*CH0IX I 
■i :CH»-1NPUT9<1) 

615 IF CH»-CHRt<2> THEN 789 

616 CH3"VAL<CHi) 

628 IF CH3<1 OR CH3>4 THEN Ll-23«G0SUB 1 

588:C0T0 619 

638 ON CH3 GOSUB 18599.11899,11599,4888 

648 GOTO 588 

788 CLS:SCREEN I,8.9:L0CATE 9,9,9:REST0R 

E 

795 GOSUB 29998 

716 COLOR 1,9:L0CATE 15,7:ATTRB l.HPRIN 

T-HENU :*MCOLOR 7:PRINT I" 

728 ATTRB 8,8:C0L0R 4,8 

723 IF A2f(l><>" THEN 768 

738 A2»U)-CHR«<27>»-F-*': ENTRER OES VA 

LEURS* 

746 A2«<2>-CHR»<27)**F-*-t CHARCEnENT- 

743 A2.'3>-CHR«<27>**F***: SAUVEGARDE" 

758 A2t(4)-CHR«<27)*-0**": FIN* 

768 FOR 1-1 TO 4 

7?e LOCATE 8, 18*I»2:C0LOR 3*PRtNTI;A2t< 1 



3: CAMEMBERTS 

4 TABLEAU DES POURCENTAGES - afttche les pourcentages de 

toutes les donnees dans chaque releve 

Dans les cas 1 ,2 et 3 on passe au menu 3 correspondent 

MENU 3 :HISTOGRAMMES 

1: HlSTOGRAMME— appuyer sur la louche correspondant au nu- 
mero du releve 

2: HlSTOGRAMME AVEC CUMUL— Les donnees de chaque re- 
leve sont totalisees et chaque total est reproduit sous la forme d une a 
barre a 

3: HlSTOGRAMME EN POURCENTAGE— S<m.la:re A Ihisto- 
gramme precedent Les donnees sont recalculees en pourcentage 

MENU 3 COURBES 

t COURBE— appuyer sur la louche correspondante au numeio du 

releve 

2; COURBE AVEC CUMUL— Ce diagramme est forme en joignant 

le sommet de chaque barre de l histogram me avec cumul par une 

ligne 

MENU 3 : CAMENBERTS 

1 CAMEMBERT — Appuyer sur la touche correspondant au nu- 
mero du releve 

2 : CAMEMBERT EN POURCENTAGE— represente ladditon de 
tous les relevds des donnees correpondantes 

STOP pour reventr au menu 
RAZ pour afhcher un autre releve 



1119 G%-A<K,H>'P(K >»18999 
1128 X<K,H>-GVI99 

1121 NEXT N 

1 122 NEXT K 

1123 FOR 1-1 TO ND 

1124 R-AII, 1 >*A< I,2>*A' I,3>*A< 1.4 >*A< 1,5 
»*ACI,6)HF N>£C1 THEN EC1-N 

1123 NEXT I 

1126 FOR l-l TO NO 

H27 T2-T2*P(I> 

1128 NEXT I 

1129 FOR w-1 TO NR 
1138 FOR K-l TO ND 

1131 T(H>-T<M>»A'k.« i 

1132 NEXT K 

1133 NEXT M:l-1 

1134 FOR rt-1 TO NR 
1133 FOR > -I TO ND 

1136 A!;-166868ACK,n , >'T<H> 

1137 P0l<K,N>-A5c/l66 

1138 NEXT K 

1139 NEXT N 
1149 RETURN 

1136 COLOR 7tH-EC'3'K-5 

1131 IF PO-1 THEN GOTO 1788 

1152 Nf-STRf<H» 

1133 LO'LENCRf > 

1168 FOR 0-8 TO 16 STEP 4 

1178 LOCATE 13-LO, 0,6(PRINTH»K 

1 188 L1NEU24,168-<N*K«I32/EC>>-<319,166 

-<n , IK«152'EC>>,7 

1198 K.-K-I 

1299 NEXT 

1283 IF P9-2 AND CHl-l THCN RETURN 

1218 LOCATE 1 3-LO, 29, 9:PR!NT9 

1213 FOR Tl-8 TO 2 

1226 FDR T-l TO ND 

1238 LOCATE 13*T62,21*T1,0 

1248 PRINTHID»(NOf'T),Tl*l,l>J 

1238 NEXT T 

1268 NEXT Tl 

1263 FOR >8 TO 19IL0CATE 4, I; COLOR 7, II 

PRINTNIDKTS, 1*1,1 "NEXT I 

1265 COLOR .e:j-8:Jl-8 

1278 FOR T-l TO NR 

1273 LOCATE J, Jl ,8:COL0R 6, C<T XPRINTCHR 

•<48*T) 

1276 COLOR 7,8 

1288 FOR Tl-I TO 6 

1283 LOCATE J,J1*T1,8 

1299 PRINTHID»(NRi<T>,Tl,l>I 

I3P8 NEXT TI 

1392 IF Jl-7 THEN Jl-13:COT0 1319 

1383 IF Jl-6 THEN Jl-7tC0T0 1318 

1394 IF J1-I5 THEN J*2Ul-8 

1318 NEXT T 

1358 RETURN 

I486 COSUB 1699 

1498 RETURN 

1589 COLOR ,8iF0R 0-8 TO 39U0CATE (J, LI, 

BiPRINT 'JIICXT 

1518 RETURN 

1689 LOCATE 9,23,9iC0L0R 7,4IPRINT*ST0P" 



786 CH2««INPUT*<1> 

787 IF CH2f<*l* OR CH2*>*3* THEN LI»23:G 
OSUB 1399iC0T0 785 

788 CH2-VAL(CH2«> 

789 ON CH2 GOSUB 1698.6899,7999,999 
799 GOTO 399 

868 YT-1 

988 CLSiSCREEN 2,8,8 

992 ES-INKEY4 

993 RESTORE 

986 LOCATE 8,8,8 

918 IF YT-8 THEN Y»»* Vous wropot* t 't 

GOTO 928 

911 Tl-8 

913 Y«-* vou» * ropoii i*iYT-I 

928 XI » 14t8i Y1«321LINE<4*X1,7»Y1>-<99*X1 

,7*YI>,6 

922 LINE(4*X1, 17*Y1 )-(99»Xl , 17*Yl>,6 

923 LI«<4*X1,8*Y1>-(99*X1,8*Y1>,4 

924 LI«(4*X1, 16*YI >-(99*Xl, 16»Y1>,4 
939 LOCATE 13,5:C0L0R 6,4:F0R 1-1 TO ID 
LOCATE 14*I,5(R£AD Xt PRINTCHRS<X) : NEXT I 
949 nC>-*HISTOCRAtinCS .COURSES i CAMENBE 
RTS* 

946 COLOR .9 

947 LOCATE 12, IBiCOLOR 3:PR1NTY* 
959 FOR T-Tl TO 36 

952 AY9-INKEY6HF AYS-CHR*(13> THEN T l -T 
i GOTO 966 

953 LOCATE T,15tC0L0R 7:PRINTCYlt 

936 LOCATE T.16JCOL0R 7:PRINTCY2« 

937 LOCATE T,17iC0L0R 7iPRINTCY3« 
958 FOR C-l TO 58: NEXT G 

968 LOCATE T,15tPRINT* 

961 LOCATE T,16IPRINT' 

962 LOCATE T,17iPRINT- 

978 IF T>»3 THEN ATTRB 6, M COLOR 1:L0CAT 

E T, I7iPRINTflID«<l1Ef,T-2, l> 

975 ATTRB 6,8 

9G8 NEXT T 

966 IF MY>-CHRSU3> AND YT-8 THEN RESTOR 

EiAYt-"iYT-i!CQTO 7 

987 IF AYf*CHRS<13j AND YT-1 THEN RESTOR 
E!AY«""tYT-8«G0T0 7 

998 GOTO 939 

999 ENO 

1688 CLS'SCREEN 2,8,6 

1819 LOCATE 18,8:PRINT-ENTRER DES VALEUR 

S' 

1929 COLOR 3 

1921 LOCATE 9.3IC0L0R 6:PR1NT*TITRE <*;: 
COLOR 9,7tPRINTSPC»22>:L0CATE 7.3HNPUT 
T«:T«-LEFT«<T»,29> 

1922 L1-3IG0SUB 1388 

1623 COLOR 7,UL0CATE 18, 1 iPRINTTt ICOLOR 

■ 6 
1824 ATTRB 9,8 
1925 COLOR 3,9 

1839 LOCATE 9, 3!PRINT'N0HBRE DE RELEVES 
'DE 1 A 6> i*;iC0L0P,, i:PRINTSPC(3>:L0CA 
TE 39,3: INPUT NR 
1849 IF NR<1 OR NR>6 THEN 1939 
1942 COLOR, .ULOCATE 9,SiPRlNT*N0rtBRC DE 

DONNEES <DE 1 A 12) :':: COLOR, , I :PRINTS 
PC<4ML0CATE 31.5: INPUT NO 
1944 IF ND<1 OR NDM2 THEN 1842 
1858 CONSOLE 7,23 
1866 FOR 1-1 TO NR 

1678 LOCATE 8, 7IC0L0R. 2.8JPRINT-N0N DU R 
£LEvE"!l)':-JtCOLOR 8, 7iPRINTSPC(7)iL0CA 
TE 17,7UNPUT NRS' I- iNR*( 1 >-LEFTi<NR§< I ) 
.3) 

1873 LI-7SG0SUB 1589 
1886 NEXT I 
1881 CLS 

1682 FOR 1*1 TO ND: I*-STRi< I > : I3-LEN< If ) 
-2 

1883 LOCATE 8,7iC0L0R 5, 8: PRINT'NOn DE L 

« DONNEE*) II *:-;tCOLOR 8, 7t PRINTSPC<5) IL 

OCATE 28*15,7: INPUT ND«( I )1N0»( I >»LEFT«( 

N0t(I),3> 

1984 L1-71C0SUB I599:NEXT HCL5 

1683 FOR 1-1 TO NR 

1886 L1-7:G0SUB 1369 

1887 LOCATE 9,7:C0L0R 2IPRINT-RELEVE-J I ! 
•: *-iC0L0R 7IPRINT NR1 I 

1899 FOR K-l TO NO 

1199 LOCATE 9,8*»:C0LOR 3iPRINTN0«<K )i»L 

OCATE 4.8*)<:PRINT*: *):C0LOR 6UNPUT A<K 

,1 > 

1191 IF A(K,I)>EC THEN EC«A<K,I> 

1195 IF «.,K, I >>EC THEN EC-A(K.I) 

1196 NEXT K 

1197 FOR Ll-9 TO 8»N0 

1198 COSUB 1586 
1189 NEXT LI 
1118 NEXT 1 

1111 CONSOLE 6,24 

1112 FOR K-l TO NO 

1113 FOR N"l TO N* 

1114 P<K>-P<K>*A<K.r1) 
1113 NEXT H 

1116 NEXT K 

1117 FOR K-l TO NO 

1118 FOR H-l TO NR 



1683 IF P8-2 THEN PRINT- RAZ" 

1618 R«-INPUTS(1> 

1628 IF R»-CH««<2) THEN COLOR ,8:RETURN 

1623 IF PQ>2 AND R4-CHRt(12) THEN COLOR, 

6: RETURN 

1636 GOTO 1699 

1799 N- 499^51 K-S 

1793 H»-STR«(N) 

1719 LO>LEN<K«) 

1729 FOR 0-9 TO 16 STEP 4 

1738 LOCATE 1 1 ♦<«■«■ 168)-L0,0,8:PRINT «• 

XI' X' 

1748 LINE<124,16e-<N«9l32'16B>)-t319, 16 

8-tH«K«l32'198>>,7 

1738 K-K-1 

1768 NEXT 

1763 LOCATE 1 I-LO, 0,8: PRINT* 6 X" 

1779 GOTO 1215 

2599 CLS:SCREEN 2,9,9 

2391 CH1-6 

2592 PO-2 

2516 LINE<124,166>-'319.166>,7 

2515 C0SU8 1159 

2516 REf-lNPUTK I > 
2317 f4-VAL<RE»' 

2319 IF n<l OR H>NR THEN 2316 

2525 A-A- l.«)»I52 EC 

2326 PSET<128, 168-A),C<1) 

2538 FOR K-2 TO NO 

2548 A-A(K,N>tl32'EC 

2338 LINE-(l24*tlt-l)tI6, 168-A>,C(H> 

2568 NEXT K 

2383 CHl-l 

2383 GOSUB 1138 

2398 GOSUB 1688 

2391 P8-8 

2592 IF RS-CHR*'12> THEN 2586 

2393 RETURN 

3689 CLS:SCREEN 2,9.8 

3995 B--8:P0-1 

3655 LINE' 124, 169'-' 319, 169 >, 7: C>9<0-9 

3966 FOR K-l TO NO 

3878 FOR H-1 TO NR 

3888 A-<A(K,N>tl88 P' > 1 '91.32 

3116 D-D*A 



136*8, 169-I>, C<N 

3148 LINE' 137*B, 168-1 >-> 148*B, I53-I ), 

3156 IF 1-6 THEN L INE- 139*B, 168 >-• 14 1 *B, 

168>,7 

3168 NEXT I 

3178 C-D 

3188 NEXT ri 

3198 FOR 1-8 TO 3 

3268 LINE< 128*1*8, 168-0- I >-* 136*1*8, 168- 

0-I>,4 

3216 NEXT I 

3226 LINE' 126*I*B, 168-0-1 )-< 136*1 *B, 166- 

D-I),8 

3238 LINE' 128*1 *B, 159-0-1 )-( 136*1 *B, 139- 

D-I),8 

3248 8-B*16:C-6iD-8 

3238 NEXT K 

3266 COSUB 1136 

3279 COSUB 1696 

3273 P8-6 

3288 RETURN 

4888 CLSiSCREEN 2,9,8 

4919 LOCATE 5,9: PRINT-TABLEAU DES POURCE 

NT ACES* 

4119 LOCATE 9,5:G0SUB 4588 

4128 FOR 1-1 TO NR 

4122 LOCATE 3*66( I-! ), 61COLOR 7:PRINT*'" 
i:COLOR COMPRINT* "jl 

4123 LOCATE 3*69( I-I ), 7IC0LOR 7iPRINT*'* 
liCOLOR C(I>(PRINTNR<<1> 

4149 NEXT I 

4156 COSUB 4368 

4166 FOR K-l TO NO 

4178 LOCATE 8,8*K1COLOR 4iPRINTN0«<K »; 

4186 FOR -! ■ TO NR 

4198 LOCATE 3*(H-I )*6, B*Kt COLOR 7:PRINT* 

'*t:C0LOR C(f1):PRlNTUSING •99.99*1 X<K,N> 

t 

4299 NEXT H 

4219 NEXT K 

4229 PRINT**:C0SU8 4586 

4388 GOSUB 1686 

4318 RETURN 

4588 FOR 0-8 TO 39 

4318 COLOR 7:PRINT*-*: 

4328 NEXT 

4538 RETURN 

5666 CLSiSCREEN 2,6.6 

5919 LINE' 124, 168)-' 319. 168 > , 7! C-6: D-6 

3811 FOR 1-1 TO NO 

3814 CKD-8J 

3815 NEXT I 

5826 FOR h-1 TO NR 

3821 0-D*A(l,n-l) 

3822 A-<D*A(1,H>)9132'ECI 

3823 PSETU28, I68-A),C(H) 
5839 FOR K-2 TO NO 

3833 CKK)-C1(K>*A<K,N-I) 

5846 A-<C1<K)*A<K,N)>9132'EC1 

5856 LINE-(124*<K-1)616,166-A>,C(H> 

3868 NEXT K 

3878 NEXT H 

3875 EC2-EC 

5876 EC-EC 1 

5896 GOSUB 1158 

5188 COSUB 1688 

3163 EC-EC2 

5118 RETURN 

6886 CLSiSCREEN l,8.8:NDT-8 

6818 ATTRB 1,8'LOCATE ie,8:PRINT*CHARGEN 

ENT* 

6915 8I--D0NNEES A CHARGER 1* 

6826 ATTRB 6,6 

6838 COSUB 6588 

6633 N8-" 

6948 RESTOREtFOR 1-1 TO 3:READ A: IF A«46 

THEN A-43 
6945 Nf-N»*CHRfCA)iNEXT I 
6659 Pri-N* 
6868 LOCATE 16, 15iPRlNT*N0R DU F1CH1ER 

■t I INPUT NFf 
6878 NFf-LEFTt(NF<,9> 
6875 IF PF4-" THEN NEU 
6688 OPEN *I*,91,SI*NFi*-. -*PFI 
6898 INPUT ■1,ND,NR,T,EC,CC1,T2,T4 
6695 NDT-(4»ND*NR>*<6IND) 
6199 FOR H-1 TO NR 
6119 FOR K-l TO NO 
6129 INPUT •l,A<K.n'} 
6125 G0SU8 6739 
6139 INPUT 91,A«(K,N> 
6133 G0SU8 6756 

6136 INPUT 91,P0KK,H> 

6137 COSUB 6758 
6148 INPUT 91,X(K,N) 
6139 GOSUB 6759 
6169 NEXT K 

6179 NEXT N 
6189 FOR 1-1 TO NO 
6196 INPUT tl,NR<<I > 
6193 GOSUB 6738 
6286 INPUT •1,ND«(I> 
6283 COSUB 6736 
6218 INPUT lU f- I 
622B GOSUB 6736 
622) INPUT61,P0<I> 

6222 GOSUB 6758 

6223 INPUT61,DE(I) 

6224 GOSUB 6736 
6223 INPUT61,T(I> 
6226 COSUB 6758 
6239 NEXT I 

6232 CLOSE II 
6234 COLOR ,9 

6233 FOR J-I TO 1256:N£XT J 
6248 RETURN 

6566 COLOR 2 

6518 LOCATE 5, 6t PRINT-SUPPORT :' 

6528 LOCATE 13, 5: COLOR.. 1 iPRINT*C*>LOCAT 

E 15,7iPRINT*0* 

6538 COLOR,, liLOCATE 17,5:PR1NT"CASSETTE 

*:LOCATE 17,7:PRINT*DIS0UETTE* 

6348 COLOR 2,9(L0CATE 9,9* INPUT*CHOIX : 

*;CH« 

6559 IF CH»-"C- THEN S»-*CASS: 'SRETURN 

6369 IF CHi--D* THEN St-*9: "iRETURN 

6576 LI-9'COSUB 1368 

6388 GOTO 6348 

6756 COLOR l,8iL0CATE 6,28:PRINT B*t 

6766 NOT-NDT-1 

6776 COLOR 6, 1 iPRINTUSINC" •••■;«!■: 

6798 RETURN 

7866 CLSiSCREEN 1,9,6:N0T*9 

7819 ATTRB 1,9:L0CATE 19,9iPRINT*SAUVEGA 

RDE* 

7815 Bt-'DOHNEES A SAUVER :' 

7628 ATTRB 8,8 

7838 GOSUB 6566 

7648 N«--*:RESTORE:F0R t-l TO 3iREA0 A: I 

F A-46 THEN A-45 

7858 N»-N4*CHR*'A>:NEXT IiPFf-Nt 

7866 LOCATE 16, 15: PRINT-NOH OU FICHIER 



Suite page 21 



MISTER PLOUFY 



Ou la vie mouvementee dun passeur AUSTRALIEN en Mode d emptor 
periode de migration de Kangourous - 



Creex uneligne 1 REM de 11 55 Octets et rentrez les codes machi- 
nes a 1 aide de >a routine situee en 91 OX) 

La vitesse du jeu peut-etre regie© difetemment aux iignes 80 et 90 
dans la mesure ou les valeurs pokees ne depassent pas 255 pour 
ladresse 25440 et 1 ou 2 pour ladresse 25441 
Michel CHANAUD- Poik le reste les, les regies sont dans le programme 




ECRITuRE EN VIDEO NOAriALE OES 
wARACTeRES EN VIDEO INUEP=EE 

36 CHOI* De LA VITESSE 

140 N 

1030 PRESENTATION OU JEU 

1100 ■> 

1200 B) 

1510 > 

1862 HISTER PLOUFV 

1590 

2230 >' CLAVIER H 

224.5 67590 

2250 QUERT 

2260 Z- - M. 

2320 BON COURAGE ET &EJTEZ CALf 

E. " 

Sow 



4? 



99 1 30 



'hi »» 



33 99 99 203 214 33 99 99 

203 166 209 193 225 201 6 3 

17 247 255 64 9 26 54 126 
17 10 25 16 242 201 17 
94 99 26 254 52 229 204 1 

94 99 6 31 9 120 60 100 
99 197 70 43 70 43 229 197 

a *5 7 2 ° 7 193 5a aft « 9 ^a 3 

103 40 16 38 37 64 264 264 

204 116 66 50 37 64 254 127 

204 10 66 42 12 64 9 229 
26 103 40 29 50 100 99 264 
20 40 65 254 27 40 121 254 
19 40 77 264 16 202 97 66 
254 10 40 09 254 9 202 120 

65 26 225 119 27 225 193 16 
171 205 219 66 56 37 64 264 
239 40 29 254 251 204 254 64 
24 146 SO 37 64 69 32 259 

90 37 64 60 49 25C 201 237 
75 101 99 291 296 1 0? 50 
96 99 254 3 40 203 55 99 
99 203 95 202 143 66 24 193 

205 1 67 50 90 99 254 2 

49 103 60 99 99 293 07 392 
143 66 195 229 64 205 1 6? 

50 90 99 264 1 49 162 50 
99 99 203 79 40 69 24 153 
50 90 99 254 3 32 7 33 

99 99 203 232 24 139 33 99 
99 293 160 24 132 60 90 99 
354 3 32 33 99 99 303 
314 106 239 64 33 99 99 
150 196 239 64 50 90 99 
1 32 33 99 94 303 306 

195 329 64 33 99 99 203 142 

196 229 64 226 209 209 42 13 
64 60 100 99 264 10 40 14 
254 19 40 5 1 19 3 34 

1 10 3 34 3 1 1 

3 9 64 190 229 1 169 266 
9 54 1 33 9 339 

S 4 36 54 36 64 
05 66 67 225 54 9 36 64 
9 36 54 9 36 64 6 206 

66 67 54 9 35 64 300 

86 67 54 9 395 66 67 326 
4 396 66 67 305 66 67 
337 75 101 99 43 106 99 64 
30 43 64 30 00 190 99 61 
399 59 106 99 71 43 196 99 
£05 50 67 16 340 305 1" 

206 33 66 196 144 64 2 
213 42 12 64 55 90 99 
3 202 193 66 354 3 33 3 

1 331 3 9 205 99 66 62 
3 SO 96 99 43 12 64 1 
206 3 9 136 354 63 194 
66 33 99 99 203 233 34 

1 333 3 9 306 99 66 63 

2 50 90 99 43 12 64 1 

199 2 9 136 384 53 33 101 
33 99 99 303 314 34 94 6 

3 17 9 54 8 26 54 

130 17 340 8BB 36 16 343 301 
239 107 313 43 13 64 60 96 
99 264 1 40 64 264 2 32 
5i 1 231 2 9 206 292 66 



4 



_ 303 63 56 

203 63 56 4 63 53 34 1 

175 50 64 99 201 59 95 99 
60 50 95 99 254 100 32 26 
197 42 96 99 1 246 255 9 
34 96 99 193 62 50 96 
09 62 3 50 106 99 42 106 
99 63 31 119 43 191 99 39 
34 191 99 43 194 99 126 364 
37 40 3 69 119 201 54 26 
43 136 103 200 34 3' ' 
11 229 313 34 6 339 _ . 
75 96 99 296 99 67 11 130 
177 33 346 309 335 301 66 30 
64 354 356 193 33 99 99 303 
239 301 43 13 64 1 133 

3 17 53 5 So 54 iSe 

36 64 120 26 16 240 42 13 
64 1 317 3 9 329 6 29 
64 9 36 16 351 338 1 33 
6 29 64 36 16 
351 43 13 64 1 333 3 9 
94 130 35 64 130 36 64 130 
42 12 64 1 179 3 9 64 
130 35 64 130 17 33 6 
3 35 54 130 16 351 201 50 

45 66 57 43 58 53 
49 53 60 43 63 56 49 52 
55 42 30 30 20 20 59 

46 43 66 9 9 9 36 
31 43 13 64 1 51 9 3 
229 235 33 107 67 1 14 
337 176 336 1 193 9 239 
336 33 391 67 1 10 237 

176 37 337 03 194 99 235 1 

66 9 9 335 33 311 67 1 

19 9 337 176 37 337 03 196 
99 62 3 50 190 99 33 9 
34 101 99 201 33 100 
34 99 33 101 34 S 
99 33 103 9 34 4 99 33 
136 34 6 99 33 303 
34 6 99 33 47 1 34 10 
99 33 190 1 34 13 99 33 

67 3 34 14 99 33 190 3 
34 16 99 33 99 3 34 10 
09 33 217 1 34 20 99 33 
119 1 34 22 99 33 94 1 
34 24 99 33 96 1 34 26 
99 33 122 1 34 20 99 33 
222 1 34 30 99 33 99 3 
34 33 99 33 199 3 34 34 
99 33 134 2 34 36 99 33 

" 34 30 99 33 4 ~ 
■" 330 1 



TRi EtRNDU^- RETURN "ASN AT PI R 
ETURN "44* SCROLL *«LN "»PIY"M?'>E 

£RN0* 5i3R ■k - 5* , '»Aca THEN /7* THEN 
V-N ''Ply •M-^eCRND" SIN V 7- *«CS C 
MR| /■ > rj , *>- 0.,Ofj> SAVE COPY , t P 
AUSE TAN FAST ufll_ STRt EfRNDV*? 
RETURN ■ CRNO RETURN *43 r SCROLL 
V- N ?S N PIY»M7^ECRN0"i , -' 1 ^«CS E 
XF •!" LIST "UlN RSN PIY^II^ECRN 
0" SIN V77ACS CMRt S'^ACS (|SGn A 



1110 IF INKCYt"' 
1130 CLS 

1130 PRINT AT 5,0, 
ION OES KANGQURQUS 
1133 PRINT T¥ ■" 



THEN GOTO 1110 
EST LA HlGRAT 



T LPRINT TAN ■•"> RUN COPY Q.,OfJ> 
• .1 PAUSE TAN )?■», RETURN FAS 
T ATN ■? LPRINT "' 



^QSUO 
ACS ZSgACS ZS-YO/'BHRND 

" "ETURN ?40y.AL E??» 



GQ5U0 ■ 
_ . "iriRNDTT.. 
">40yAL E??* PLO 
. i .^"Y*t1^-'E??Y3?E-> 
Q0FB FAST STR» ,? 

us T*>'ln ■>'>■■ tHh sav 

TAN UARNO RETURN CO 
97'»AC5 NEU TAN E£AND" \ .) 4 

9*'i. ? fl y£^?. £ .3 N t'_ 0( 5.^ fast 



OSUB 

N U77UH""? RETURN 
T COPY -677|— 
?76??E?"?TAl. _ 
FAST STR» GOSUB 



1135 PRINT " ET ILS PASSENT PAR 
MILLARS' 1 

1136 PRINT ,, EXACTEMENT OUR V 
OTRE PETITE 1 ' 

1137 PRINT .. RIUIERE DICN TRA 
NOUILLE EN SE- 

1140 PRINT , , " JETANT DU NAUT 

E LA FALAISE. " 

1150 PRINT ,,,,■' 

VOUS APPELLE 1 ' 

1160 PRINT , ,TAB 0, 



DEPUIS, ON 



FAST STA| GOSUB """uN ^"-'T^ SAy frWF 

E SON LPRINT TAN UARND RETURN CO 1 ^ e 

PY '■'-Sr'ACS NEU TAN EttRND* I .It \m 

/«Ql7Qa. I SAVE ECRNCT OR ^ FAST V13P 

/ID.?. CLS LPRINT "5 -»*10|7t CL MB 

5 EtRND' THEN "•O«7O#70Be£RND" M 1 f*®* 



SUN LPRINT TAN UARND RETURN CO 
Y '■"57->ACS NEU TAN E£AND" | 
. ■g9J70B, ' SAVE ECRND" OR * 

/1CV l CLS LPRINT ■5 
S EtRND' THEN "-0l7Qf 
•oi'OliS J*.Gm- CL5 Ti 
PL OUFV SCORE 00O0VIES 

GOSUB. I 

•PI . FOR 5 

. -osue "?7y*h^ 

?5 0^-»TAN 5^ 6 TS^^S^ 6-?5§ 

6/-'5ACS 6i?5j*6-75H f aC?5T^ ?5§ 
■6.' , 5U»6>' , 5 OR •6«757*6-t50*6/^5 
R* D. ^5' r 60?5 THEN ■ 63:57 h 6475SlN 



PRINT TAB 3. 
PRINT TAB 6. 



HISTER PLOUF 



TAN HISTER 

03ECRND* 
n - rno. FOR 5#?" GOSUB I LPRI 
NT^ ? _ FAST FOR STAN ?** GOSUB 

f. GOSUB " ! " , ' > LPRINT " " 
EK ?•* GOSUB T 




NKEYi^S GOSUB dt»'OHRND' , TAN 
3 REH 
19 POKE 16300,9 
15 POKE 16300,99 
29 CLS 
39 GOSUB 1000 



|0 PRINT AT 21,30, 

nau" 

14d0 LET l«3 

1490 LET C«l 

1500 FOR I»l TO 6 

1505 FOR J«l TO 3 

1519 PRINT AT L-i ,C, T' . TAB C-l, 

1529 IF INKEY«<> '- THEN GOTO 223 



1539 PRINT AT L-1,C. '.TAB C-l, 



1550 LET 

.'560 NEXT 

1562 PRINT AT 19,10, 



35 CLS 



1565 LET L«L*1 

1580 FOR J"l TO 3 

1590 PRINT AT L-1,C,'P 



AT 5.4, ■' 
AT 9,13, 



NIVEAU 



34 49 



.- 99 33 230 1 34 42 
99 33 329 1 34 44 99 33 

7 3 34 46 99 33 74 2 
34 40 99 33 141 3 34 59 
99 33 300 3 34 53 99 33 
143 3 34 54 39 33 111 3 
34 56 99 33 113 2 34 56 
99 33 146 2 34 60 99 62 
1 60 90 90 33 99 00 303 
339 61 69 95 99 50 64 99 
33 64 99 17 68 99 1 31 
337 176 63 62 50 64 99 
301 109 60 123 

N 7?AT U77ACS 7CIU9RND RETURN RE 
TURN ATN 7PIU9RND RETURN ■BTN >P 
IECRNO.. FAST ,BlCiU?? RETURN 0CIN 
KCY| RETURN . C~ RETURN <C7 RETUR 
"■ ?INKEY« RETURN -C? RETURN 



0« DEHENT ' 

40 FOR 1-1 TO 9 

43 PRINT TAB 0, ".■■ 

44 NEXT I 

45 PRINT TAB 9, ■■• ," 

50 PRINT TAB 9. '»■ DEBUTANT" 

93 IF INKEY|w' ■■' THEN GOTO 53 

55 IF INr\E--M THEN GOTO 55 

60 LET NI-INrvEvS 

70 IF N9<"0" OR N«> 9 THEN GO 
TO 35 

76 LET N«UAL Nf 

30 POKE 25441,0 

90 POKE 25440,30* il.4«Nl 
190 LET SCORE»USR 16516 
110 CLS 

130 PRINT AT 6, 10, "SCORE - " , SC 
ORE 
130 PRINT , .TAB 10, 'NIVEAU- " *N 



lftTO IF INKErl 



1610 PRINT AT L-l.C. 

1630 LET C-C*l 
1630 LET L«L*1 
1640 NEXT J 

1645 PRINT AT li, i.0. 



14.50 NE/ 

1660 L.OT 

2320 CLS 

" PRINT 



,TAB C-l, 
THEN GOTO 222 



UiTEP Pi_0'_ 



1400 

TAB 9, 
PRINT , , ,TA8 9 



345 PRINT TAB 1 
• >MANDQN" 

aa8«_£RlNt tAb i 

YUIOPfli 

2255 PAINT TAB 9, ■■ASDFOm 




KCY| 
N >AS 



RINT 
AUTR 



U',,,- AUTRE ")HEHE VITESSE'- 
150 IF INKEYgo THEN GOTO 150 

160 IF INKCY|»"" THEN GOTO 160 
170 IF INKEY6--N" THEN RUN 35 

180 GOTO 00 __^_^^_ 

reh ■BBHHB0HBHBHI1BJ1 



m 



PRINT QAuCHEc 

l->DR0ITE' 

PRINT TAB 9, ■■ 



■f? RETURI. 

FB8T RN05' > ''AC"S ■?' 
ETURN •4fa??ACS CXI 
7AC3 ■? FAST RND LI 



62 1 60 90 99 42 



04 



_ 190 3 9 136 394 93 33 
36 33 99 99 303 306 34 39 
1 340 3 9 305 303 66 63 
3 50 90 99 43 13 64 1 
199 3 9 136 384 63 33 B 




OUAND UO 

1040 PRINT "7,'DE'PASSeuR SUR UNE 

PETITE RIVIE-" 
1060 PRINT TAB 31. ' , ' , "RE AUSTRA 
i-IENNE, UOUS AVEZ PENSE" 
1055 PRINT .."QUE UN DOLLAR PAR 
PASSAGE " 

1060 PRINT TAB 2,' , .TAB 36,".", 
"C'ETAIT DROLEMENT BIEN PAYE" 
1070 PRINT ..POUR UN BOULOT AU 
GRAND AIR, 
1980 PRINT ,, S^rHPATHlOUE ET PAS 

CREVANT, ..." 
1090 PRINT TAB 14, ",",, ••ET EN PL 
US, C ETAIT LE PRINTEHPS' 
1095 PRINT ,,' OR, LA-BAS, LE P 
RINTEHPS ..." 
1100 PRINT AT 31,30: ■ 



4, " , " , 

BTENEZ 
TR0I5 V 



TREPARTIE . 
2310 PRINT- 
ERA UN PEU 



CONSECUTI 

IES. EN CON 

A VITESSE AUGHENT 

WiiTrBTMlM 

THEN GOTO 236 

THEN GOTO 2370 



2370 IF INKEY«« 

2360 CLS 

2i90 RETURN 

9000 REH RAND USR B203 

9005 SAVE "PLOUFi" 

9010 REM 591PL0UFY 

9030 RUN 

9100 FOR 1-16516 TO 17663 

9110 INPUT A 

9120 POKE I, A 

9130 SCROLL 

9140 PRINT I. A 

0150 NEXT I 



ADVENTURE LAND 



Les mechanls GOBELINS oni derobe le talisman de 
I'ancienne cite KASHAI. Ce joyau magique brille desor- 
mais au fond de leur sombre grotte. aurez-vous la vail- 
lance de ramener cette merveille a votre peuple ? 

Laurent BOIGEY 



es variables suivantes 



Mode d emplo 
Faire VAC et fentref 
H$ = TOHEr 
IS - "DESEFtr 
F» > "RIVIERE" 
• Deplacements 
8 vers le NORD 
6 vers I' EST. 
2 vers le SUD. 
4 vers I OUEST 
- Coordonnees 
(0.4): la cite. 
(0.8) source 
(9.1) donion. 
(14.9): gourffe. 
(14.8) goultre. 
(15.8):gouflre. 

Vous dispose; de 60 points de vie en debut de partie Vous pourrez 
trouver des obiets qui vous aideront dans voire enquete. mais pour 
ceo II vous laudra voyager longtemps et gare aux mauvaises ren- 
contres l 




ir-:; :; net m 

» 281 STEPS 
II U=IHT (IMHilli 

•II 
15 PUT ML PHUT CO 

IM1TPP 
2« 8=IK! IHMI<4 ;: 

Z--m (WHIM): 

Mil (MM«1M 

) 
31 IF 1X68: If Ml 

PUT ■VOUS IE M 

TE2':60TO 28 
:: IF t;68UF 8=81 

P«I "II VOUS M 

IE-16010 28 
48 IF D< 681 PUT "VO 

US LE TCWKEZ": 

U=U-Z:fP1 101: 

":0 
58 IF l-Af,m -1L 
VOOS !IWCHE":8 

=fl-B:PP: •VOUS: 



M IF Bt8:PP! "V0018 

S ETES MPT':EH 

D 
78 IF OiBlPPI "VOO 

S L BVE2 TUE":R11 

EI 

si so™ :« :: 

P|: n STEPS 

1 IF E!=M:1F 0=8 2« 

:Y=Y-1 31 

! IF El=Pt:IF 0=241 

;v=YH 58 

! IF EI=»:IF 0=468 

:X=X-1 TI 

< IF EI=P«:1F M71 

IMM 
'. EI=":1ET 75 

•'«: IX STEPS 
I WIT 38:PtT •-- 
-*VEKTWE-L8» 
— ",CSP5:" ; C>?* 





v.'. 



IF F= 15: IF 6=S 
60TO II 
Et=" 

lHf *-->'.!! 

IF 0=S;V=TM 
IF 0=2:t=M 
IF »=6:X=XH 

if t=4;y=x-i 

H=!HT 'WWtH 

IIFWI89K 

IF MIlFTMIIia 

F W="I':PPT "V 

OTBE BUETE ESTia 

.-TEIM1IHEr.~:EM 

I 

IFMilF «t6:EI3l 

l=It 



IF r=2:lF x=i-.E 
i=Ii 

IF X=?:IF Vi7!l 
F Yi5:Et=««:6S8 
18 

IF Y=8;IF X=li: 
Et=fl) 

IF X>8:IF Xill: 
IF -= 7 :Ei=P|:S! 
EI6 
IF rs2;lf x=i2: 

EI=H) 



135 irx=T|:!F Y=6: |« IF Y=8MF XMSE 

EI=SI:6SE 18 t-Ht 

141 IF YilUF «s|3l 2N IF X=U!F Y=S:| 

EI=K1 t=1LEF":PBT « 

145 IF Xill: IF X:13 21l IF X=9:IF Y=1:E 

:lr Y=4;E«=«:6 t="MHIir:|Fl 

S8 18 l«":l="L«.ISSEZ 

151 IF Yi2llF X=14: -PflSSE,":P«T I 

El=m 221 IFX=9:IF Y--5:' 

155 IF Y'.6:IF Y;5:l pi -ye yovF. z m 

F X=I3:EI=«:SS pom • L EST" 

8 18 231 IF X= II: IF Y=5: 

161 IF Yi3:lF X»I5I IF JI=":FtT 1 

E1=HI E PftSSEUS VS RT 

US IF Hill If WH TWIE":6S8 15 

IIF HiEMBK 244 IF X=1I:!F Y=5; 

S8 88 IF Bf't'PT "V 

171 IF Y=9:IF X..5>E STMWMH..." 

I=HI 251 IFX=0:!F u =P:C 

175 IFX=8:IF Y=8:E )="C0P0E-:PP! : 

|="S0WCE":«=rH $ 

ltd :RBHI>28><! 268 IFX=14IIF Y!8: 
l»IIFY=8:IFX>r-I n=-.":!F Ct=" 

F Xi2:Ef=HI :PP! "VOUS ETE5 



KtT...":EH) 
2«l IF X=I5UF »«Si 
TM^":IF M=" 
:PtT "WIS HES 
«ti. ..":£* 
271 IF !«••••: IF CI 
«"iPf T "1* SOU 
FFK..."." v 00S 

a sfj»in.":Ti= 

2« IF X=15MF Y=»: 

pit "wjs mz 

L»PIEKT:fi=' 

r 

y» IF EI=":P»T 1 

=':x;" y=":yi" 

UK* 

291 IF EI«"":P«T *X 

=";X:" tf =':Y:" 

":EI ' 

312 E»=":60T0 !•• 



0' 



SPELEOGICIEL 



Decouvrez les joies de la speleologie sans risque et 
sans depense. Un programme a ne pas manquer. 

Francois FRANDON 

Mode d'emploi : 

Chaque oulil est dote dun poids qui influencera direclement votre 

pofle d'energie au long du parcours. 

Des vivres sonl egalement disponibles au depart Chaque unite de 

nournture consommee au cours du trajet apporte un supplement 

d'energie de 25. 

Au depart ; 

- Le niveau de vie = 1000 

■ Le niveau d'energie = 130 (il ne pourra jamais etre > a 130 

meme en consommant des vivres des le depart) 

L'energie baisse en tonction de la charge portee et de la difficulty 

des passages. 

La vie baisse relativement a l'energie. 



7799 BASIC SIMPLE 




60 CALL CLEAR 

70 CALL SCREENf 141 

BO FOR 1=10 TD 22 

90 READ L 

100 FOR J=2 TO 15 

110 CALL HCHAR(J-1. 1.32) 

120 CALL HCHAR(J.I,L) 

130 NEXT J 

140 1=1+1 

150 READ L 

160 IF 1=23 THEN 230 

170 FOR J =23 TO 15 STEP -1 

180 CALL HCHAR(J+1, 1,32) 

190 CALL HCHAR<J.1,L) 

200 NEXT J 

210 NEXT I 

220 DATA B3, 80. 69, 76, 69, 79, 76, 79, 71, 73, 6 

7,73,69.76 

230 FOR 1-31 TO 23 STEP -1 

240 CALL HCHARI14, 1+1,32) 

250 CALL HCHAR(14, I,L) 

260 NEXT 1 

270 CALL SOUND (BOO, -B.O) 

2B0 CALL S0UND(10,-1.0) 

290 CALL HCHARU4, 23,32) 

300 CALL HCHAR(15,23,L> 

310 CALL S0UND(2000, 262,5, 330,5, 392,5) 

320 PRINT "ACTION"," TOUCHES" "AVAN 

CER", " D"( "MONTER", " E": "DESCENDRE" , 

X":"ALLEGER"," A": 
330 PRINT "MANGER"," M" : "BQIRE" , " B" 
:"SUIVI EVENTUELLEMENT DU CODE OUTIL POU 
R E,D(LAC) ,X,A" 

340 PRINT "": "OUTIL", " CODE" i " " i "PIOLE 
T" , " 1": "CORDE", " 2": "PI TONS", " 3" 
: "MARTEAU", " 4": "LAMPE", " 5" 
350 PRINT "RADEAU"," 6":"MAINB NUES"," 
0":"OBSERVEZ BIEN LE PARCOURS QUI S 
'AFFICHERA IL VOUS AIDERA DANS") 
360 PRINT " VOTRE CHOIX D'OUTILS" 
370 CALL KEY(0,RET,ETAT> 
3B0 IF ETAT=0 THEN 370 
390 CALL CLEAR 

400 CALL CHAR(37. "C7CFCFE7E7E7E7E7 " ) 
410 CALL CHAR138, "0303030303030303") 
420 CALL CHAR(39, "C3C3C3C3C7C7C7C3") 
430 CALL CHARI42, "8040402116109101") 
440 CALL CHAR(35, "E7C3CIC3C3C3E703" ) 
450 CALL CHAR(96, "55FFFFFFFFFFFFFF") 
460 CALL CHARC97, "FFFFFFFFFFFFFFFF" ) 
470 CALL C0LDR19,4,5) 

480 CALL CHAR'104, "CFC7CFBF8F000080 I, ) 
490 CALL CHARI105, "FFFFFFFFFE000001") 
500 CALL C0L0R<10,5,2) 

510 CALL CHAR<36, "3F3F9FDFE7F7F9FC" > 
520 CALL C0LGR(2.2,7) 
330 CALL CHAR (40, ""> 

540 CALL CHAR(4I, "O0O6O7406OOOI0CO" ) 
S50 DIM C0L18O) .LIG(BO) .DUTILI6) .PB(*-i 
560 RANDOMIZE 

570 CALL CHAR(33."BBF7FDDFEEF77F7B") 
580 FOR 1-3 TO 8 
390 CALL COLOR 1 1. 8,1 J 
600 NEXT I 



610 


CALL SCREEN(2) 


b?0 


CALL COL0R(l,5,2) 


630 


VIE- I 000 


640 


5NER6IE-130 


„'-,!- 


D=0 


660 


M-0 


670 


C*2 


680 


L = 10 


690 


SOTO 710 


700 


ON INT(RND»3)+1 GOTO 710 


710 


R=INT(RND*2)+2 


720 


FOR 1=1 TO R 


730 


NC-NC+1 


740 


C-C+l 


/bo 


IF C-32 THEN 10B0 


760 


COL ( NC ) =C 


770 


LIG(NC)=L 


780 


NEXT I 


790 


D=l 


BOO 


M=l 


BIO 


GOTO 700 


B20 


IF M=0 THEN 700 


B30 


CALL SOUND(lO.-l.O) 


840 


R=INT(RND*2)+1 


ano 


FOR 1=1 TO R 


B60 


IF L=l THEN 1060 


B70 


NC-NC+1 


BBO 


L-L-l 


B90 


COL(NC)=C 


900 


LIG!NC)=L 


910 


NEXT I 


920 


D=0 


930 


GOTO 700 


940 


IF D=0 THEN 700 


950 


CALL 50UND(10,-2,0) 


960 


R=INT(RND*2>+1 


970 


FOR 1=1 TO R 


980 


IF L-24 THEN 1060 



990 L=Lh 1 

1000 NC=NC+1 

1010 COL(NC)=C 

1020 LIG<NC)=L 

1030 NEXT I 

1040 M-0 

1050 GOTO 700 

1060 D=M=0 

1070 BOTO 700 

1080 C0L(NC)=32 

1090 LIG(NC)=L 

1 100 FOR J«=l TO NC 

1310 CALL HCHAR(LIS(J) 



/.! < • !X! !' 



120 NEXT J 

130 FOR TEMPO-- 1 TO 50 

140 CALL COLOR (1,2, 2) 

150 CALL C0L0R(1.5,2) 

160 NEXT TEMPO 

170 CALL CLEAR 

180 GOTO 4600 

190 FOR P>=1 TO NC 

200 CALL CLEAR 

210 IF VIE<=0 THEN 5070 

220 IF £NERGIE<=0 THEN 5070 

230 IF 0UTIL(5>=0 THEN 5070 

240 IF L1G(P)=LI6(P+1)THEN 1270 

250 IF LIG(P) >LIG(P+I)THEN 2350 

260 GOTO 3170 

270 REM PLAT 

280 LONG-O 

290 MONT»=0 

300 PRINT ■'»###«•»*#■#*»»»■■ 

310 PRINT 

320 PRINT 

330 PRINT 

340 PRINT 

350 PRINT 

360 PRINT 

370 PRINT 

3S0 IF LAC<>2 THEN 

390 PRINT " IDS! •'.' ' 

400 PRINT ■!!!!!!! 

410 PRINT "! 1 ! 1 ! ! J 

420 PRINT "!!'■! !h: 

430 PRINT •"'"•"• 

440 PRINT 

450 PRINT 

460 GOTO 1 

470 PRINT 

4B0 PRINT 

490 PRINT 

500 PRINT 

310 PRINT 

520 PRINT 

530 PRINT 

540 GOSUB 4170 

550 SOTO 2170 

560 CALL KEYIO.RET.ETAT) 

570 IF ETAT-0 THEN 1560 

580 IF (RET<>6S>*(RET077)#(RET066)»(R 

;T065)THEN 1560 

590 IF RET-68 THEN, 1910 

600 IF RET=66 THEN 1760 

610 IF RET-77 THEN 1620 ELSE 1990 

620 IF VIVRe<>0 THEN 1650 

630 IF MONT-0 THEN 1560 

640 GOTO 2530 

630 VIVRE=VIVRE-1 

660 ENERSIE-ENERBIE+25 

670 IF ENERGIE<130 THEN 1690 

680 ENERGIE-130 

690 CALL S0UND(500.-3.0) 

700 T*-5TR*(VIVRE> 

710 X=21 

720 Y=2B 

730 GOSUB 4110 

740 GOTO I860 

750 GOTO 1560 

760 IF EAU=0 THEN 1560 

770 EAU-EAU-1 

780 ENERGIE-ENERGIE+IO 

790 IF ENERGIES 130 THEN 1810 

800 ENERG1E»130 

BlO CALL S0UND(500,-1,0) 

S20 T*=STR«(EAU) 

830 X-22 

B40 Y-28 

B50 GDSUB 4110 

960 T«=STR*(ENERGIE) 

B70 X=3 

B80 Y-12 
1B90 GOSUB 4110 

IF MONT=l THEN 2530 ELSE 1560 
1910 IF LAC-0 THEN 1960 
1920 IF LAC-1 THEN 2240 
1930 LAC=0 

F ENERSTE=ENERGIE-1NT{ (POIDS+D/4) 
1950 GOTO 1970 

1960 ENER6IE=ENERG1E-INT( iPDIDS+D/B) 
1970 VIE=VIE-(INT(800/ENERGIE> > 
1980 GOTO 3B70 
1990 CALL 5OUND(6O,20OO.O) 
2000 CALL KEY(O.RET.ETAT) 
2010 IF ETAT=6 THEN 2000 
2020 IF (RETO49)»(RETO50)»(RET:: >51>»(fi 



2240 
2250 
2360 
2270 
228f 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2 360 
2370 
2380 
2390 

2400 
24 l 

2420 
2430 
2440 

2430 

2460 

2470 
2 480 
2490 
2300 

; s i o 

2520 
2530 
2540 
2550 
2560 
2370 
"530 
2590 
2600 
2610 
2620 
2630 
2640 

QtJSS 

2660 
2670 

2680 
2690 
2700 
2710 
2720 
2730 
)+1)h 
2740 
2 750 
2760 
2770 
27S0 
2790 
2800 

2B10 

282':-' 
2B30 
2B40 
2B50 
2660 
2B70 
2B80 
2B90 
10 

2900 
2910 
2920 
2930 
Z940 
2950 
2960 
2970 
2980 
2990 
3000 
30 lO 
3020 
3030 
304O 
3050 
3060 
3070 



CALL SOUND(30,-l,0) 

CALL KEY<0,RET,ETAT> 

IF ETAT-0 THEN 2250 

IF RET-4B THEN 2320 

IF RET054 THEN 2250 

IF OUTIL (6) =0 THEN 2320 

LAC-2 

BOTO 1940 

ENERGIE=ENERGIE-19 

LAC=0 

GOTO 1970 

REM MONTEE 

IF MONT-1 THEN 2960 

PRINT "»»»■#««»*#**[ |[!" 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT "#•! !##«#! f ! !*'/.*" 

PRINT "l»!!! 

PRINT "!X!»! 

PRINT "!JC!!| 

PRINT '■!*!>! 

PRINT "))))) 

PRINT ")))>}>)))))))))•' 

PRINT ")>))>>>>>)>))))" 

PRINT "I))))))))))))))" 

GOSUB 4170 

CALL KEY(0.RET,ETAT1 

IF ETAT=0 THEN 2530 

IF (RET069)*(RET077)THEN 2530 

CALL SOUND(100,-1,0) 

IF RET-69 THEN 2610 

IF MONTOO THEN 2530 

MONT-1 

GOTO 1620 

CALL KEY(0,RET,ETAT) 

IF ETAT-O THEN 2610 

MONT-1 

IF RET-51 THEN 2890 

IP RET-40 THEN 2700 

IF RET-4B THEN 3120 

GOTO 2610 

CALL SOUND (30.-1,0) 

BOTO 3120 

IF OUTIL(l)-0 THEN 2610 

ENERGIE=ENERGIE-INT( (POIDS+1 )/4) 

IF ENERGIE>50 THEN 2870 

CHU-INT(RND«(3-(-5+INT(ENERGIE/10 

(-5+INTCENERGIE/10) ) 

IF CHU>0 THEN 2870 

CALL CLEAR 

FOR BOU-1 TO 30 

CALL S0UND(3O.20OO-(3O*BOU) ,BOU) 

NEXT BOU 

CALL S0UND(600,-5,0) 

VIE=VIE-200 

FOR T=l TO 10 

IF CDL(P-T)OC0L<P)THEN 2B40 

NEXT T 

P= t P-T ) 

M=0 

GOTO 37B0 

VIE-VIE-INTi8Q0/ENERUIE> 

GOTD 3870 

IF (0UTIL(3)>0)»(0UTIL(4)i0)THEN \ 

GOTO 2610 

ENERGIE=ENERGIE-INT((P0IDS+l)/7) 

OUTIHS^OUTILIS)-! 

P01DS-P01DS-PS13) 

IF ENERBIEM5 THEN 2B70 

GOTD 2730 

PRINT ' 



PRINT ■ 

PRINT ' 

PRINT ■ 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ' 

PRINT ■ 

PRINT ' 

PRINT ' 

PRINT ' 



*y.'. 



) PRINT "*!!! '*»*##»» 

I SOTO 2520 

) CHU=INT( (ENERGIE/20)»RND)+1 

i ENERGIE=ENERBIE-INT( (PGIDS+ 



COL (J) .33) 



ETC >52 ) * < RET< >53 ) » (RET< J 54 ) THEN 


2000 


3140 


IF CHU= 


1' THEN 2750 


2030 


OUTIL <RET-4B)=0UTIL (RET- 


48 




i \ 50 


VIE=VIE-INT(BOO/ENERGIE 


2040 


IF 0UTILCRET-4B) J=0 THEN 


2070 


3160 


GOTO 3870 


2O30 


OUTIL (RET-48>=0 






3170 


REM DESCENTE 


2060 


GOTO 1560 






3180 


PRINT 


| ! »»»*»»#•»■»«■" 


2070 


T»=STR«(0UTIL(RET-48) ) 






3190 


PRINT 


! '# ",i!*»>HHH'<HKl" 


2OB0 


X=14+(RET-48) 






5: 00 


PRINT 


X!& "/'»»»»*•»»»" 


;-,'.,.-. 


Y-25 






.32:0 


PRINT 




2100 


GOSUB 4110 






3220 


PRINT 




2110 


PO I DS-PO I DS- ( PS 1 RET-4B ) 1 






S230 


PRINT 






2120 


X = l 






3240 


PRINT 


*»» • !*' 




2 l SO 








3250 


PRINT 






2140 


T*>=STft«(PGIDS)V " 






-260 


PRINT 


« ' '/. ' •%• 


*»»#*»»" 


2150 


60SUB 4110 






3270 


PRINT 






2160 


GOTO 1560 






3280 


PRINT 


«#»' ' ! 


X !♦**••" 




IF LAC-2 THEN 1566 






3290 


PRINT 






21 BO 


IF LIB1P+2) ;,-LIG(P)THEN 


1S60 


3 500 


PRINT 






2190 


IF INT(RND*4)+1=3 THEN 2 


20 


ELSE 15 


3310 

3320 


PRINT 
PRINT 


*#**!•! 




2200 








3330 


GOSUB 4170 


23 1 D 


CALL HCHARI23, 15,97.3) 






3340 


CALL KEY10,RET.ETAT) 




LAC=1 






3 350 


IF ETAT-0 THEN 3340 


2230 


GOTO 1560 






3360 


IF RET 


>8B THE 


•1 3340 



3370 CALL S0UND(20,-1,0) 

33B0 IF LONB=0 THEN 3450 

3390 LONG=LONG-1 

34O0 ENERGIE-ENERBIE-INTl (POIDS+1) /6! 

3410 VIE=VIE-INT(BOO/ENERGIE) 

3420 IF LONG>0 THEN 3B70 

3430 CALL SOUND(300,-3,0) 

3440 GOTO 3870 

3450 CALL KEY (0, RET, ETAT) 

3460 IF ETAT=0 THEN 3450 

3470 IF (RET<>50)*(RETO49)»(RETO4B)THE 

N 3450 

3480 IF RET=4B THEN 3630 

3490 IF RET=50 THEN 3560 

3500 IF OUTIL111-0 THEN 3450 

3510 CHU=INT(RND«15+P0IDS) -POIDS 

3520 IF CHU<0 THEN 36B0 

3330 ENERGIE=ENERBIE-INT< (POIDS+1) /5) 

3540 VIE-VIE-INTOOO/ENERGIE) 

3550 GOTO 3870 

3560 IF OUTIL (2) "0 THEN 3450 

3570 LONG-3 

5580 OUTIL(2)=OUTIL(2)-1 

3390 P0IDS=P0IDS-PS(2) 

3600 ENERGIE=ENERGIE-INT( (POIDS+1) /6) 

3610 VIE»VIE-INT(800/ENERGIE) 

3620 GOTO 3870 

3630 CHU=INT(RND»(2+INT! (20*PD1 DS/ENERBI 

E) ) ) )-INT( !20*POID3/ENERGIE1 ) 

3640 IF CHU<=0 THEN 3680 

3650 ENERGIE-ENERG1E- (POIDS+1) 

3660 VIE=VIE-INT(BOO/ENERSIE) 

3670 BOTO 3B70 

36B0 VIE-VIE-200 

3690 CALL CLEAR 

3700 FOR BOU-1 TO 30 

3710 CALL SOUND(30,2000-(50*BOU) .BOU) 

3720 NEXT BOU 

3730 CALL SOUND (600, -6, O) 

3740 FOR DESC=1 TO 10 

37S0 IF CDL(P)OC0L(P+DESC)THEN 3770 

3760 NEXT DESC 

3770 P-P+DESC-1 

3780 PERT-INT (RND«6)+1 

3790 IF OUTILIPERTJ-O THEN 3780 

3800 0UTIL(PERT)=0UTIL(PERT)-1 

3810 PO I DS-PO IDS-PS (PERT) 

3S20 ENERGIE=ENERGIE-10 

3830 PRINT "VOUS AVEZ CHUTE AU FOND 

DE LA CREVASSE": "ET DANS VOTRE CHUTE 

VOUS AVEZ PERDU UN OUTIL " 

3B40 FOR TEMPO*! TO 200O 

3B50 NEXT TEMPO 

3860 MONT-0 

3870 IF P+l-NC THEN 3890 

3BB0 NEXT P 

3890 REM SORTIE 

3900 FOR 3=200 TO-1000 STEP 20 

3910 CALL S0UND(50,S,10) 

3920 NEXT S 

3930 CALL CLEAR 



3940 CALL C0L0R(2,7, 


) 






3950 CALL CHAR(36,"F 


F 


"FFFF 


TFF 


3960 CALL COLOR (l.B, 


) 






3970 PRINT ******** 


* 


a««i 


**** 


»SS«*»«t*SSSS*«t*9*» 


i 


t*»i 


t«*9 


SSt*SS*****«SS«S' 








3980 FRINT "******** 


* 


•*ti 


i*** 


*S*SS«$***S**S*C9S** 




tsti 


**** 


C*SC«*S«*S*SS*St" 








3990 PRINT "»*«»»*»[, 


■ 


• 1 ■ 1 


i*t* 


*ssms!.si*»ii**ii'iit 


I 


•••1 


(«» 


«SCCC«C*S*»S«***'' 








4000 PRINT "(((((((( 


\ 


I'!' 


( ( ( ( 


((((((((((!(((((" 
4010 PRINT "((((<((( 
(((((((((((((((((((( 


; 


( ( t < 


"" 



4020 
't 030 
4040 
4050 
4060 

4080 
4 090 
4100 



4120 
4130 

4140 NEXT 
4130 



PRINT "":"VOUS ETES SORT! 

IF ENERGIE>70 THEN 4090 

IF ENERG1E>50 THEN 4O70 

PRINT "TRES FATIGUE" 

GOTO 5250 

PRINT "EN BONNE FORME" 

GOTO 5250 

PRINT "EN PLEINE FORME" 

GOTO 5250 

REM S.P ECRIT. 

FOR K=l TO LENIT*) 

CALL HCHAR(X,K+Y, ASC(SEG»( 



CALL SOUND (8.-1 . 

RETURN 

REM ROUTINE 



4220 " 

4230 ; 

4240 > 
4250 1 
4260 ■ 
4270 1 
42B0 1 
4290 I 
4300 - 
4310 ; 
4320 ' 
4330 1 
4340 : 



J,STR*(F-OIDS> 



STRSlENERGIE) 



■'1-STR* (OUTIL 



Suite page 25 



ECHEC 



ATARI 



Un bon graphisme pour un jeu tres populaire. Les deux 
joueurs s'affrontent a armes egales. mais attention, 
I'ordinateur controle la legalite de vos coups. 

Philippe JACQUOT 



A suivre : 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux fois. 



100 REM *** PRESENTATION *** 

101 GRAPHICS 1B:P0SITI0N 7,5:? #6; M ECHEC 
S":IF PEEKC2033=PE£KC10B3-8 THEN GOTO 30 


200 REH *** CARACTERES *** 

201 A=PE£KC106)-8:R£STORE 260:FQR 1=0 TO 
I85:READ J : POKE 1536+1, J :NEXT I:X=USRC1 

5363 RESTORE 204 

202 READ C:IF C<0 THEN POKE 203,A:GOTO 3 
00 

203 FOR B=0 TO 7:READ D :PQKE A*256+CB*C3 
+B,0:NEXT B:QOTO 202 

204 DATA 59,0,0,0,0,0,0,0,255 

205 DATA 60,255,0,0,0,0,0,0,0 

206 DATA 61, 1, 1, 1, 1, 1, 1, I, 1 

297 DATA 62, 128, 128, 128, 128, 128,128, 128, 

128 

208 DATA 64,255,255,255,255,255,255,255, 

255 

208 DATA 77,0,0,25,25,31,31,7,7 

210 DATA 78,0,0,152,152,248,248,224,224 

211 DATA 78,7,7.7,7,31,31,0,0 

212 DATA 80,224,224,224,224,248,248,0,0 

213 DATA 108,255,255,230,230,233,223,251 

■ 251 

214 DATA 109,255,255,103,103,151,231,223 
.223 

215 DATA 110,251,251,251,231,231,224,255 
,255 

216 DATA 111,223,223,223,223,231,7,255,2 
55 

217 DATA 73,0,0,0,1,3,7,15,15 

21B DATA 74,0,0,64,224,240,248,240,248 

219 DATA 75,31,30,28,4,1,3,0,0 

220 DATA 76,240,248,112,224,240,248,0,0 

221 DATA 104,255,255,255,254,253,251,247 
,247 

222 DATA 105,255,255,191,95,239,247,239, 
247 

223 DATA 106,238,237,227,251,254,252,255 
,255 

224 DATA 107,239,119,175,95,239,7,255,25 
5 

225 DATA 68,0,0,3,7,15,15,15,7 

226 DATA 70,0,0,0,128,192,192,224,22.4 

227 OATA 71,7,3,1,1,15,31,0,0 

228 DATA 72,224,192,128,128,240,248,0,0 

229 DATA 100,255,255,252,251,247,247,247 

■ 251 

230 DATA 101,255,255,255,127,131,191,223 
.223 

231 DATA 102,251,253,254,254,241,224,255 
,255 

232 DATA 103,223,191,127,127,143,7,255,2 
55 

233 DATA 65,0,0,3,3,1,1,1,3 

234 DATA 66,0,0,132,192,128,128,128,192 

235 DATA 67,3,3,3,3,15,31,0,0 

236 DATA 68,192,192,192,192,240,248,0,0 

237 DATA 96,255,255,252,253,254,254,254, 
253 

238 DATA 97,255,255,63,191,127,127,127,1 
91 

233 DATA 98,253,253,253,253,243,224,255, 
255 

240 DATA 88,181,131,191,191,287,7,255,25 
5 

241 DATA 81,0,0,17,17,25,25,27,31 

242 DATA B2, 0,0, 136, 136, 152, 152, 216, 248 

243 DATA 83,31,31,31,15,15,7,0,0 

244 DATA 84,248,248,248,240,240,224,0,0 

245 DATA 112,255,255,238,238,230,230,229 
,235 

246 DATA 113,255,255,119,119,103,103,167 
,215 

247 DATA 114,239,233,239,247,247,248,255 
,255 

248 DATA 115,247,247,247,239,239,31,255, 
255 

243 DATA 85,0,0,1,7,7,1,1,3 

250 DATA 86,0,0,128,224,224,128,128,132 

251 DATA 87,15,31,31,31,15,7,0,0 

252 DATA 88,240,248,248,248,240,224,0,0 

253 DATA 116,255,255,254,249,249,254,254 
,253 

254 DATA 117,255,255,127,159,153,127,127 
, 131 

255 DATA 118,253,239,239,239,247,248,255 
,255 

256 DATA 119,207,247,247,247,239,31,255, 
255 

257 DATA -1 

260 DATA 104,162,255,134,204,162,151,134 
,205, 162,255, 134,206, 162,223, 134,207, 168 
,0,200, 177,206, 145,204, 132,255 

261 DATA 208,247,166,204,202,134,204,166 
,205,232, 134,205, 166,206,202, 134,206,166 
,207,232, 134,207, 160,0, 163,0 

262 DATA 224,227,208,219,96,104,162,255, 
134,203, 162, 145, 134,204, 160,127, 169,0,20 
0, 127,203, 192,255,208,249, 166 

263 DATA 203,202,134,203,166,204,232,134 
,204, 160,0,224, 148,208,233,96, 104, 169,25 
5, 162,0, 157,32, 146, 232, 224, B, 208 

264 DATA 248,162,0,157,168,146,232,224,8 
.208,248, 162,0,157,48, 147,232,224,8,208, 




248, 162,0, 157, 184, 147,232,224,8 

265 DATA 208,248,169,3,162,0,157,192,145 
, 232, 224, 8, 208, 24B, 163, 12,162,0, 157,200, 
145,232,224,8,208,248, 169,48, 162 

266 DATA 0, 157, 208, 145, 232, 224, B, 208, 248 
. 163, 192, 162,0, 157,216, 145,232,224,8,208 
,248,96 

300 REM *** INITIALISATION *** 

301 DIM Gt8,S3:FOR A=l TO B:FOR B=l TO 8 
:IF tA+BV2=INTCCA+B3'23 THEN GCA,B3=1=G 
0T0 303 

302 GCA,B3=8 

303 NEXT 8:NEXT A 

384 DIM GRC8,83:F0R A=l TO B'FOR B=3 TO 
6:GR[A,B3=-1 :NEXT B:NEXT A 

305 P=l :A0=5:B0=5:NE=0 

306 DIM CNT[323,PH(323,PUC32):FOR A-l TO 
32:CNT(AJ=0:NEXT A 

307 DIM PEPC153,LEPC153:FOR A=0 TO 15:PE 
P[AJ=0tLEPCA3=0:NEXT A 

30B DIM CAP[]13:FOR A-0 TO 1 1 ;CAp[A)-0 :N 

EXT A 

389 DIM QIC11.B3 

310 DIM ECHECCIUFOR A=0 TO 1 :ECHECCA3=0 
:NEXT A 

311 DIM COC73.LIC73 

400 REM *** GRILLE *** 

401 GRAPHICS 0:SETCOLOR 2,0,0:POKE 752,1 
'POKE 756.PEEKC203J 

402 FOR A=12 TO 27:P0SITION A, 3:? "[":P0 
SITION A, 20:'' "V =NEXT A 

403 FOR B=4 TO 13:P0SITI0N 11,8:? "]":PO 
SITION 28,8 = ? "-■' :NEXT B 

404 FOR B=l TO 8:F0R A=l TO 8:0N GCA.B3+ 
1 GOSUB 502,501 :NEXT A:NEXT B 

405 FOR A=13 TO 27 STEP 2:P0SITI0N A, 2:? 
CHR«C64+CA-113'2J POSITION A, 21:? CHR»( 

64+CA-ll3'23 :NEXT A 

406 FOR A=5 TO 19 STEP 2:P0SITION 10, A:? . 
9-CA-3V2 POSITION 29, A:? 9-CA-3)'2-'NEX 

407 FOR 1=1 TO 32:R£STORE 410+HREAO A,B 
.U:GREA,B)=Ul:PHCU}=AiPUCU)=8:G0SUB 583 :N 
EXT I 



"BLANCS" POSITION 32,' 



408 POSITION 2,2:? 
2=? "NOIRS" 

409 GOTO 600 

411 DATA 1, 1,29 

412 DATA 2, 1,27 

413 DATA 3, 1,25 

414 DATA 4,1,31 

415 DATA 5, 1,32 

416 DATA 6, 1,26 

417 DATA 7, 1,28 

418 DATA- 8, 1,30 

419 DATA 1,2, 17 

420 DATA 2,2, 18 

421 DATA 3,2, 19 

422 DATA 4,2,28 

423 DATA 5,2,21 

424 DATA 6,2,22 

425 DATA 7,2,23 

426 DATA 8,2,24 

427 DATA 1,7, 1 

428 DATA 2,7,2 

429 DATA 3,7,3 

430 DATA 4,7,4 

431 DATA 5,7,5 

432 DATA 6,7,6 

433 DATA 7,7,7 

434 DATA 8,7,8 

435 DATA 1,8, 13 

436 DATA 2,8, 11 

437 DATA 3,8,3 

438 DATA 4,8, 19 

439 DATA 5,8, 16 

440 OATA 6,8, 10 

441 DATA 7,6, 12 

442 DATA B.8, 14 

479 REM 

480 REM POUR LES LIGNES 501,502,506 

481 REM TAPE2 CTRL+LE SIGNE INDIQUEE 

482 REM ENTRE PARENTHESES 

483 REM POUR LES SIGNES + ET = TAPE2 ESC 
AUANT CTRL 

484 REM LIGNE 502 TAPE2 , EN UIOEO-IN 

485 REM 

500 REM *** DESSINS *** 

501 POSITION 2*A+10,2*B+2:? ",'■;",";" = "; 
-«■ ■•;■• + •';•',■';", ":RE TURN 

502 POSITION 2*A+]0,2*B+2:? ",■';■•,";" = '•; 
■+••;" + " J",";", " : RE TURN 

503 UY*GtA,B3 

504 RESTORE 510+UI :READ U 

505 IF WYOINTCU'171 THEN U=U+35 

506 POSITION 2*A+l0,2*B+2:? CHRSCU3 ;CHR* 
fUti ];■■ = ";■ + " ;■■ + " ;chr«cu+23 ;chr$cu+33 

507 RETURN 

51 1 DATA 1 

512 DATA 1 

513 DATA 1 

514 DATA 1 

515 DATA 1 

516 DATA 1 

517 OATA 1 

518 DATA 1 




519 DATA 5 

520 DATA 5 

521 DATA 9 

522 DATA 9 

523 DATA 13 

524 DATA 13 

525 DATA 17 

526 DATA 21 

527 DATA 129 

528 DATA 129 
523 DATA 129 

530 DATA 129 

531 DATA 129 

532 DATA 129 

533 DATA 129 

534 DATA 123 

535 DATA 133 

536 DATA 133 

537 DATA 137 

538 DATA 137 

539 DATA 141 

540 DATA 141 

541 OATA 145 

542 DATA 149 

600 REM *** PLAYER MISSILE *** 
601- C-PEEKC106J-16:D=256*C:POKE 54279, C: 
POKE 53277, 3=POKE 559, 46 :X=USRC15933 
602 X=USRC16303:POKE 53260,255 

700 REM *** TOUR DE JEU *X* 

701 PRENPA=0:ROQ=0:COUP=COUP»1 

702 P=ABSCP-13 

703 PAT=-l:GOSUB 800 :IF PAT>0 THEN GOTO 1 
200 

704 GOSUB 1300:IF STRIGCP3=0 THEN GOTO 7 
06 

705 GOSUB 1400:GOSUB 1600:GOTO 704 

706 IF INTCU'-17)<>P THEN GOTO 704 

707 A1=A0:B1=B0:OK=1 :GOSUB 900:IF OK>0 T 
HEN GOSUB 1700:GOTO 704 

708 A=A1 :B=B1 :IF INTCU'17)>0 THEN CG=4SG 
OTO 710 

709 CG-2 

710 IF G[A1,B13=0 THEN GOTO 712 

711 GCA1,B1)=0:GOSUB 503 :GCA1 , Bl 3=1 

712 BG=B1 :AG=A1 :GOSUB 1800 

713 FOR H-240 TO 140 STEP -5=S0UND 0, INT 
CH/10J+20, 10,3:NEXT H : SOUND 0,0,0,0 

714 GOSUB 1400:UAL=1 :IF A0OA1 OR B0O81 
THEN GOSUB 1900 

715 IF STRIGCP3O0 THEN GOTO 714 

716 UAL=0:GOSUB 2000:IF UAL>=1 THEN GOTO 
714 

717 ATT=0:PHCW3=A0:PUCU3=B0:FIX=GRCA0,B0 
1 :GRCA1,B13=-1 :GRCA0.B0D=W:R=P 

71B IF FIX>0 THEN PHCFIX3=-1 :PUCFIX3=-1 

719 GOSUB 1100:IF ATT<1 THEN ECHECCR3=0: 
GOTO 2300 

720 ROQ=0:ON ECHECCR3H GOSUB 2900,2800 

721 PHCU1=A1 :PUCU1=B1 :POKE 53247+BG, 0:A= 
Al :B=B1 :G05UB 503 

722 IF FIX>0 THEN PHCFIX3=A0:PUCFIX3=B0 

723 GRCA1,B1 )=W:GRCA0,B03=FIX:A0=A1 :B8=B 
1 JGOTO 704 

800 REM *** TEST PAT *** 

S01 FOR U=1+16*P TO 15*16*P:IF PHCU3<0 T 

HEN GOTO 803 

902 A1=PHCU3 :BI=PUtWj:OK=l :GOSUB 900:IF 

OK = THEN PAT=0:W=15-H6*P 

803 NEXT U:id=U0:IF PAT=0 THEN RETURN 

804 II=16+16*P 

805 FOR CO=PHCII3-l TO PHCII3+i:FOR LI=P 
UCIIJ-1 TO PUCII3+1 :ARG=0:GG=P: > GOSUB 330 


810 IF ARG=0 THEN PAT=0 :CO=PHCII3 + l :LI=P 
UCII3+1 

811 NEXT LI:NEXT CO:RETURN 

900 REM *** TEST IMMOBILISATION *** 

901 IF INTCW-16*INTCUW733>8 THEN GOTO 9 
21 

902 IF U>16 THEN GOTO 912 

903 IF Al=l OR Bl = 1 THEN GOTO 906 

304 W1=GRCA[-1,B1-1D :IF INTCU1 •17]=ABS[P 
-1) THEN OK=0:RETURN 

305 PRENPA=0:r!NEF=Al+6JMGEL=Bl :GOSUB 100 
4»IF PRENPA=1 THEN OK=0:RETURN 

906 IF Bl = l THEN GOTO 308 

907 U1=GRCA1,B1-13 :IF Wl=-1 THEN OK=0 :RE 
TURN 

908 IF Al=8 OR Bl=l THEN RETURN 

903 Ull=GRtAli-l,Bl-l] :IF INUU1'173=ABSCP 
-1J THEN OK=0:RETURN 

910 PRENPA=0:nNEF=Ali-8:nGEL=8l :GOSUB 100 
4=IF PRENPA=l THEN OK=0:RETURN 

91 1 RETURN 

912 IF Al=l OR Bl=8 THEN GOTO 915 

913 W1=6RCA1-1,B1+13:IF INTCU1>-173=ABS(P 
-13 THEN DK=0:RETURN 

914 PRENPA=0:MNEF=A1-2:MGEL=B1 :GOSUB 100 
4MF PRENPA=1 THEN OK=0:R£TURN 

315 IF Bl=8 THEN GOTO 317 

916 W1=GRCA] ,81+] 3 :IF Ul=-1 THEN OK=0:RE 
TURN 

917 IF A]=B OR B1=B THEN RETURN 

918 U1=GRCA1+1,B1+11 :IF INTCU1>-17)-=ABS(P 
-1 J THEN OK=0:RETURN 

919 PRENPA=0:MNEF=A1 :MGEL = B1 :GOSUB 1004: 



IF PRENPA=1 THEN OX=0:RETURN 

920 RETURN 

921 RESTORE 930 + INTCW-16*INTCU--17n-8 :RE 
AD NB:FOR 1=1 TO NB:READ S, T 

322 IF A]*S<1 OR A1+S>B OR B1+T<1 OR B1+ 
T>8 THEN GOTO 924 

923 Wl=GRCAH-S,81+t3 :GOSUB 925:IF OK=0 T 
HEN I=NB 

924 NEXT I -"RETURN 

925 IF INTCU1^17JOP THEN OK=0 
925 RETURN 

931 OATA 4,1,1,1,-1,-1,1,-1,-1 

932 DATA 4,1,1,1,-1,-1,1,-1,-1 

933 DATA 8*1,2,1,-2,-1,2,-1,-2,2,1,2,-1, 
-2,1-2,-1 

934 OATA 8,1,2,1,-2,-1,2,-1,-2,2,1,2,-1, 
-2,1-2,-1 

935 OATA 4,1,0,-1,0,0,1,0,-1 
936DATA 4.1,0,-1,0,0,1,0,-1 

937 DATA 8,1,0,-1,0,0,1,0,-1,1,1,1,-1,-1 



• 1, 



-! 



938 DATA 8,1,0, 



,1, 



1.1,1,1, 



1000 REM**** TEST PRISE EN PA *** 

1001 IF COUP<2 THEN RETURN 

1002 IF P=0 THEN MNEF=A0f7:MGEL=Bl :GOTO 
1004 

1003 MNEF=A0-1 :MGEL=B1 

1004 IF PEPCMNEFJ=CQUP-1 AND LEP(MNEF1=M 
GEL THEN UAL=0 :PR£NPAM 

1005 RETURN 

1100 REM *** TEST ECHEC *** 

1101 S=16*ABStR-13 :FOR 1=1+5 TO 8+S 

1102 IF PHCIK8 THEN GOTO 1106 

1103 IF PUtIJOPUC32-S)+SGN[R-0.53 THEN 
GOTO 1106 

1104 IF A8S£PHCI)-PHC32-SJJ<>] THEN GOTO 
1106 

1105 ATT-1 :NE=1 :COC0)=PHCI3 :LIC03=PUCID 

1106 NEXT I:IF ATT=1 THEN RETURN 

1107 FOR I=3+S TO 10+SJIF PHCIX0 THEN G 
OTO 1114 

1108 NH=PHtI3-PH[32-S):NU=PUCI)-PUC32-SJ 

1109 IF ABSCNH10ABSCNU3 THEN GOTO 1114 

1110 IF ABSCNH) = 1 THEN ATT- 1 :NF= 1 :COCB1* 
PHCI) JLIC01»PUCIi :I'10+S:GOTO 1114 

1111 J=SGNCNHD :K=SGNCNU3 :FOR U=l TO ABSC 
NH3-1 

1112 IF GRCPH(I)-U*J,PUCU-U*K3>'-0 THEN 
U-500 

1113 NEXT U:IF U<500 THEN ATT=1 :NE=ABStN 
HD:FOR U=0 TO NE-1 :COCU3=PHCID-U*J SLICU3 
*PUCU-U*K:NEXT U 

1114 NEXT Hie ATT=1 THEN RETURN 

1115 FOR I-ll+S TO 12+S=IF PHCIX0 THEN 
GOTO 1122 

11 16 NH=pH[IJ-PHC32-S3 :NU=PUCI3-PUC32-S1 

1117 IF ABSCNH)>2 OR ABSCNHK1 THEN GOTO 
1122 

1118 IF ABSCNU3>2 OR ABSCNUK1 THEN GOTO 
1122 

1113 IF ABSCNH3-2 AND ABSCNUlOl THEN GO 
TO 1122 

1120 IF ABSCNH] = 1 AND ABSCNU102 THEN GO 
TO 1122 

1121 ATT=1-!NE=1 :COC03=PHCI) :LIC03=PUCI3 

1122 NEXT I:IF ATT=1 THEN RETURN 

1123 FOR I=13+S TO 14+S:IF PHCIK0 THEN 
GOTO 1134 

1124 NH=PHCIJ-PHC32-S3 :NU=PUCI3-PUC32-S1 

1125 IF NHO0 AND NUO0 THEN GOTO 1134 

1126 IF NHO0 THEN GOTO 1130 

1127 IF ABSCNUJ=1 THEN ATT=1 :NE=1 :COC01= 
PHCI3:LIE03=PUCI3 =I=14tS:G0T0 1134 

1128 J=SGN[NU3 :F0R U=l TO ABS[NU3-i:IF G 
RCPHCI3,PUCI3-U*J3>=0 THEN U=500 

1129 NEXT U:GDTO 1133 

1130 IF ABS[NH3=1 THEN ATT=1 :NE=1 :COC01= 
PHCI3:LIC03=PUCI3:I=14+S:GOTO 1134 

1131 J=SGNCNH3 :FOR U=l TO ABSCNH3-1:IF G 
R(PHi:i3-U*J,PU[I33>=0 THEN U=500 

1132 NEXT U 

1133 IF U<500 THEN ATT=l:GOSUB 4000 

1134 NEXT UIF ATT=1 THEN RETURN 

1135 I=15+S:IF PHCI3<0 THEN GOTO 1151 

1136 NH=PHCI3-PHC32-S3 :NU=PUCI3-PUC32-S3 
:IF ABSCNH3 0ABSTNU3 THEN GOTO 1142 

1137 TF ABSTNH] = 1 THFN ATT = 1 :NF= 1 :CO [ 3 = 
PH(I):LlC03fPUCI3 RETURN 

1138 J=SGNCNH] :K=SGNCNUJ:FOR U=l TO ABSC 
NH3-1 

1139 IF GRCPH(I3-U*J,PUCI3-U*K3>=0 THEN 
U=500 

1140 NEXT U:IF UC500 THEN ATT=1 :NE=ABSCN 
H):FOR U=0 TO NE-1 :CD[U3=PHCI1-U*J :LI(U3 
=PUCI3-U*K:NEXT U:RETURN 

1 141 GOTO 1151 

1142 IF NHO0 AND NUO0 THEN GOTO 1151 

1143 IF NHO0 THEN GOTO 1147 

1144 IF ABSCNU3=I THEN ATT=1 :NE=1 :COC83= 
PHlI):LI[0)=PUCI) :RETURN 

1145 J=SGNCNU3 :FOR U= 1 TO ABSCNU3-l:IF G 
RCPH(I3,PUCI3-U*J3>=0 THEN U=500 



46 NEXT i 



:GOTO 1150 



A SUIVRE... 



C'est nouveau, pa went de sortir 



BIDOUILLE GRENOUILLE 



Penche devant son traitement 
de textes. ii sue sang el eau. 
assailli de doutes quand a la 
qualite de ce qu'il ecrit Pauvre 
Jean-Louis. Apres un bref coup 
d'oeil sur son ecran. il appuie 
rageusemeni sur la fleche de 
gauche et va corriger un mot qui 
lui semble douteux. II se re- 
prend, remet le mot. puis le 
reenleve Apres tout, personne 
nest sense savotr qu un thnps 
est un msecte archiptere, et ces 
cons de la redaction vont encore 
enlever le H en croyant a une 
laute d' in attention C'est dur, 
d'etre le createur de Pepe Louis. 
Pourtant. il est sur. il sent au 
fond de lui qu'il tient quelque 
chose de grandiose, de formida- 
ble Malgre les reproches qu on 
lui lait, malgre les accusations 
de copie dont on lassaille. mal- 
gre son style changeant au til 
des episodes, il sent confuse- 
ment que c'est lui qui a raison. 
Et manicheisme ou pas, il conti- 
nues dans la vote qu'il s est tra- 
ce* 

Ou moms si on veut bien le 
laisser tranquille. Le telephone 
qui sonne. maintenant. Bien sur, 
il a branche son repondeur. 
mais sa conscience professio- 
nal^ le harcele et lui commande 
de repondre lui-meme. 
D'abord, il ne comprend pas. 
Commodore ? Mais II n'a pas de 
Commodore > Stix ? Mais il n'a 
pas ce programme ! Mais l autre 
insiste, lui repete trois fois la 
meme chose, lui enjoint de noter 
sojgneusement Et comme dans 
un reve. rl note. 

Pour (aire une copie de securtte 
de Stix, il faut taper LOAD". 
puis: 

10(un espace)SYS2063:REM 
et sauvegarder Pour augmented 
le nombre de vies, POKE 
2337, N , ou N est le nom- 
bre de vies desire moins un. 
Pour avoir un temps illimite. 
taper: 

POKE 2444.238:POKE 2445.45 
POKE 2446.75 POKE 2447,234. 
POKE 2448.234 

L autre continue, parte, dit qu'il 
s appeile Looker, et Jean-Louis 
note, note tout sans pouvoir re~ 
flictiir. II a ete derange en 
pieme creation, il eprouve ce 
sentiment bien particular que 
connaissent ceux qui creent 
lorsqu on les interrompi II s'ac- 
croche a une idee tenue. arach- 
neenne et fait son possible pour 
ne pas quelle se brise Alors il 
inscrit automatiquement. repond 
par des onom a topees L autre 
raccroche 



Le declic le sort brutalement de 
sa reverie. II fallait s'y attendre: 
il ne se rappelle plus de ce qu'il 
avan en tete Rageur. il eteint 
son ordinateur et se rabat sur le 
COurrier du matin 
Une grande enveloppe lui attire 
I'oerl. II louvre sans precautions, 
en mordillant sa moustache 
avec sa levre mfeneure. signe 
de nervosite. II grommelle. C'est 
son grand defaut: il pane tout 
seul Quand il sen apercoit. il se 
juslifie par un "ca y est, voila 
que )e pane tout seul, je deviens 
fou", au cas ou quelqu'un laurait 
entendu. Cette fois-ci, il ne le dit 
pas car II sail qu'il est seul: son 
tils est a l ©cole et sa femme au 
travail. 

Le contenu de lenveloppe lintri- 
gue: un immense plan, accom- 
pagne dune lettre de deux 
pages signee Jerome Beretti. II 
accorde un bref regard au plan 
et s'empare de la lettre. 
"Je viens d'acheter Knight Lore 
pour Spectrum. Le jeu est tene- 
ment bon que j'ai etabli un plan 
des lieux que je joins a cette let- 
tre. Je t'envoie egalement une 
liste de 40 des personnages que 
Ion rencontre dans DoomdarVs 
Revenge. Elle est divisee en 
trois colonnes la premiere 
contlent le nom du personnage, 
la seconde les sentiments qu'il 
eprouve a regard de Luxor et la 
troisieme le nom de son ennemi. 
Dans la seconde. kxsque 
oui non apparait. cela signrfie 
qu'il acceple de combattre si 
ceiui qui lapproche est un ami. 



BARBARIAN 


NOM 


Ml 


SON ENNEMI 


taodng 


OUi 


•harath 


vwatrwg 


non 


uahangrana 






avorthun 






thorihak 
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DWARVES 
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Omi 
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Oui 


shareth 
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ganomarg 
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shareth 




ICELORO 


Kshudruk 


OL.I 


tharand 



FEV 



thigrand 
imorthorn 
thormand 
tororlhane OUi 
berormorn 
imorthesh 
I ho n hand 
carorthand 
■mgormand oui 
imgorthand oui 
lorangrim 
tharand non 
imgormiel 
berormane oui 
carodhane oui 
onidrane 
carorthom non 



maiirang 

shareth 

kahangrorn 
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kahangnei 

lore lorn 

imgorarg 

talormang 

imgorarg 

gliteon 

irnganl 

anuarorn 

kahudrak 

zarashand 

gkxmarg 

shareth 

varormane 



code au hasard dans Bidouille- 
Grenouille, celui de Pic et le 
compose. Arrive sur la page 
d'accueil, pns dune subtle impul- 
sion, il presse deux fois Retour. 
et les mots "Centre Neptune en- 
trez votre code d'acces" appa- 
raissent. Toujours au hasard. il 
tape SIS et Envoi II aurart aussi 
bien pu taper Noe. ou Gregory, 
ou n'importe quoi d'autre Mais 
a sa grande surprise, il rentre II 
regard* I'ecran un instant, puis 
appuie sur Connexion tin II 
compose le 615 91 77, et es- 
saye les nouveaux services dont 
on lui a parte: Antigel (code 
ANTI), sur lequel il y a des 
salons qui ressembienl fort aux 




Jespere que ces renseigne- 
ments t'aiderom. .." 
Jean-Louis enleve ses lunettes 
et les essuie dun coin de che- 
mise distrait. II se trouve dans 
un etat second, un peu comme 
lorsqu on prend un medicament 
contenant de la pirine et de I'ai- 
cool II repousse dun coup de 
coude la pile de lettres et rap- 
proche son Mmitel. 
II louvre, lallume et de la main 
gauche s'empare d'un ancien 
numero de I'Hebdo. II pioche un 



POUEME 



Deux livres chez Hachette 

viennent de sortir 

Jacques Bessieres est lauteur 

du premier 

A ce nom. point nest besoin 

de sourire 

Puisque c est un champion des 

donnees. 

C'est bien de la tele-informati- 

que 

Et des nombreux reseaux tele- 

phomques 

Que son bouquin traite. mais 

ce peul (1) 

Ne parle pas que de I' Apple 

Specialise dans les canes et 

les modems 

Avec onction et componction il 

est ecrit 

Et cedes, c'est un su|et qu il 

aime 

Putsque la comprehension en 

jaillit. 

Jetons un coup d'oeil au som- 
maire 

De quoi s apercoit-on avec sur- 
prise ? 

Aux debutants ce livre est clair 
Et leur evilera de nombreuses 
crises 

De nerfs. ate la coupure du 

vers 

L' Apple-Tell esl dissequee 

La Novation bien expliquee 

El le mmitel sous nos yeux est 

ouvert 



El Id. je craque Deuxieme 
livre de la collection Hachette: 
L utilisation de lAmslrad CPC 
464 de Ian Sinclair Comme 
d habitude chez cet auteur. le 
bouquin est tres abordabie et 
comprehensible par tous. Les 
exemples donnes son! clairs et 
tres bien comment.es. Seul 
point noir: Ian Sinclair esl quel- 
qu'un de tres ngolo mais la tra- 
duction laisse de cote tous les 
gags qui devaient emailler la 
version originate Reste un ou- 
vrage clair. bien fait et interes- 
sant Ceci dit. le prix de 125 
trancs est peut-etre plus dicte 
par lopportunisme que par la 
realite du marche 
Au fait, j'ai pas reussi a le 
caser dans le poeme. mais le 
bouquin de Jacques Bessieres 
vaut 145 francs. Meme peine. 
meme motif 

(1) peul: peuplade dafnque.(2) 

(2) authentique 




COMMODOKt: EST NAVRA1NI T ! 

La rumeur des mauvaises tan- Le commentaire de I'hebdo 
gues: Commodore ne pourra Dis, Gillot-Petre a quoi on re- 
pas livrer ses C126 sur le mar- connait le prinlemps de l ete 9 
che europeen avant la fin de Aux hirondelles ? 
I'ete 

Les denegations de Commo- 
dore Si si. c'est toujours prevu 
pour la fin du pnntemps. 



^>- 



SANS PATE 
MARCONI PERD LA BOULE 



Marconi n a nen a voir avec 
son homonyme el ancetre 
Dans le cas present, il sagit 
dune societe delectromque 
anglaise creatrice dun nou- 
veau Track Ball, le RB2. Celui- 
ci se connecte directement 
(sans interface) sur Commo- 
dore 64. MSX et BBC. II est 
commercialise avec un logiciel 
de dessin pour environ 60 C 
et ne tonctionne qu'avec les 
programmes qui lui sont desti- 
nes (Eddy 2 pour MSX ne le 
reconnail pas, par exemple) II 
offre une boule de 5.5 centi- 
metres de diametre, envoyant 
deux cents impulsions au 
micro pour une rotation 
complete et de trois boutons 
de commande programmables 
Actue'iement une dizaine de 
logiciets utilisant ce track ball 




frac* ball RB2 



existent donl deux ou trois jeux 
d arcade, deux logiciels de 
dessin et quelques program- 
mes educatifs Bref. ne vous 
precipitez pas dessus. cest 
encore une extension a duree 
de vie ires limitee 



QUAND CINEMA ET INFORMATIQUE 
SE FACHENT 



Lorsque PSS a commercialise 
son logiciel Les Flics , United 
Artists (celebre maison de pro- 
duction cinematographique) a 
vu rouge... Ou plutot rose ( 
Pensez done: le heros auran 
eu un air qui semblerait sap 
procher dune esquisse du 
sourire de Peter Sellers et des 
traces suspectes de 'elide 
ayant franchi un obstacle cons- 
true dun pot de peinture rose 
s'accumoncelleni devant les 
yeux ebahis et eberlues du 
heros sus-cite. U A a simple- 
ment accuse PSS de se servir 
de la Panthere Rose pour ven 
dre son logiciel . Du coup , 
changement de jaquette et 
commercialisation, sans chan- 
ger le titre Out ! 





Pour ce qui concerne le sott. il 
en existe actue Dement une 
version MSX, une Spectrum et 
une Commodore La panthere 
rose (ce superbe diamant fruit 
de toutes les converses) est 
pianque quelque part en vtlle. 
Dun bond prodigieux dans 
votre vehicule. vous parcourez 
rues et immeubles a la recher- 
che d indices et d'armes pour 
prendre possession de ce 
bijou A tout instant vous aurez 
des flics motorises ou a pied 
aux trousses: un thriller palpi- 
tant comme le cinema nous en 
offre rarement et Industrie lo- 
gicielesque quasiment jamais 
Vous pouvez y aller a cette 
seance, elle projette Taction 
sur votre televtseur en perma- 
nent et ne manque pas d'inte- 
ret 



forums de SM, Reso. qui 
comprend une messagerie en 
direct tres originate, Gretel. qui 
vient d'obtenir I'autonsation de 
passer sur la tanticalion kios- 
que. 

Mais il se lasse vite. et eteint 
son appareil II rallume sombre- 
ment son ordinateur et recharge 
sa disquetle de textes. II doit 
continuer sa mission, continuer 
a eenre les avenlures de Pepe 
Louis, continuer envers et contre 
tous... ■ 



APRES Lfl CJ1.0., L'EJLO., LE DAO... 

LA R.E JLO.!!! 



Commencent a nous les briser 
avec leurs sigies La nouvelle 
mode, c'est de coller du AO 
partout AO Assists par Ordi- 
nateur. On dirait que plus per- 
sonne ne peut nen (aire sans 
etre Assiste par un Ordinateur 
Les gens sont vraiment handi- 
capes. Bon. Alors la REAO est 
une des activites de CAR- 
RIERE ET DEVELOPPEMENT 
(association loi de 1901) qui a 
pour vocation d aider les 
cadres au chomage a (aire de 
la Recherche d'Emploi Assis- 
tee par Ordinateur On voit pas 
trop ce qu ils enlendent par la. 



mais il parait que cest tres a 
ta mode Je vous donne i info. 
et vous en fartes ce que vous 
voulez Contact de lassocia- 




tion: Carnere el Developpe- 
ment. 52bd de Sebastopol 
75003 Paris. TEL8870368 



CAT : UN DROLE DE CHAT 



D'abord. j'ai cherche les 
oreilles et j'ai trouve deux 
boutons. Ensuite j'ai cherche 
son dos doux et rond et j'ai 
trouve una grosse boule qui 
roule el n'amasse pas 
mousse Enfin j'ai cherche la 
queue et j'ai trouve un fil bi- 
zarre avec une drdle de prise 
au bout. 




Le Cat est le track-ball des- 
tine au MSX Ses logiciels 
d applications sont Eddy 2. 
Music Editor (MUE) et un flip- 
per d'enfer donl le nom reste 
secret pour des raisons de 



secunte evidentes Pour les 
deux premiers, comme leur 
nom ne lindique pas force- 
ment, il sagit de deux utilitai- 
res lun destine au dessin et 
I'autre a la creation musicale. 
pour le flipper ne tiippez pas 
e'en est un. Le Cat se bran- 
che sur une des deux entrees 
joystick du MSX Son contort 
d'utilisation est optimum quel 
que soil la faille de la main 
qui lutilise. Les deux bou- 
tons de controle permettent 
une utilisation rapidement 
automatique, sans reflexion 
inutile a fournir. Un bon peri- 
phenque pour le MSX qui 
vous coutera environ 600 
francs Tout ce que Ion peut 
regretler, cest le manque 
dramatique de logiciels utili- 
sant cette extension. 



POUR LES PROS 



Une nouvelle qui va vous pas- 
sionner Tandy (les ordina- 
leurs) et Birdy s (les program- 
mes) viennent de signer un 
accord de commercialisation 
des programmes du second 
par le premier, el mon lout dit 
maman Les logiciels en ques- 
tion (gestion de stocks, de ge- 
rance d immeubles. de paye 
analytique. nen que du ngolo) 
ont ete adaples pour etre 
compatibles avec les micro-or- 
dinateurs Tandy (heureuse- 
ment) et ne seronl distribues 




en France, en Belgique et en 
Allemagne que dans les maga- 
sms de cette chaine A vous 
Charlie, je vous recois cinq sur 
ctnq. 



C'est nouveau, pa vient de sortir 




CHANGER DE NIVEAU, 
PAS DE MICRO 



Level 9 Adventure, jeune so- 
ciete anglaise. s est speciali- 
st (des la naissance) dans 
les jeux d'avenlures. Inattendu 
compte lenu de son nom. 
n'est-ce pas ? Pouf chacun 
des logiciels decrits ci-des- 
sous, vous pourrez trouver 
prochainement des versions 
pour Amstrad. BBC, Spectrum. 
Commodore 64. MSX. Elan. 
Memotech et Atari. Enlin une 
sociele qui sattaque a tous les 
gateaux a la fois ' 
Colossal Adventure sort di- 
rectement de loeuvre de J.R.R 
TOLKIEN "Le Seigneur Des 
Anneaux" el vous emporle a 
travers un dedale souterrain de 
plus de trois cents cavernes 
peuplees de Troll, nains et 
autres chevaliers noirs. Une 
angoissante a venture. en 
texte malheureusemenl. 
Adventure Quest poursuit 
I'aventure debutee avec le logi- 
ciel ci-dessus Vous devez 
cette lois-ci decouvrir la Vieilie 
Route de la Tour Sombre. 
Neut regions desolees ou sur- 
peuplees a traverser avanl 
d'atteindre le dernier combat 
contre Agaliarept. 
Dungeon Adventure est le 
troisieme volet de la trilogie de 
la Terre du Milieu (encore Tol- 
kien) Encore une tois le nom- 
bre de lieux a visiter depasse 
les deux cents, mais ou est 
done passe le graphisme ? 
Malgre tout, des scenarii par- 
tattement concus et realises 
permettront aux lanatiques des 
jeux d'aventure de passer 
quelques mois a plancher. 
Snowball, premier litre dune 
trilogie de science-fiction, vous 
entraine a la tele dun vais- 
seau contenant deux millions 
d'humains congeles en vue de 
la colonisation ae la planete 
Eden. Mais comment y arriver 
a travers ce chemin de sept 
mille planetes ? A vous de le 
resoudre ! 

Return To Eden continue 
I'aventure du capitaine du 




Snowball Vous aurez a vam- 
cre les mille dangers de la pla- 
nete Eden et de sa jungle ma- 
lelique avant de decongeler 
votre cargaison. Le troisieme 
volel de I'aventure n'est pas 
encore ecrit. alors patience... 
Lords ot Time et encore une 
aventure ou les mecnants veu- 
lent mettre le souk dans le 
temps et ou le gentil (vous) est 
charge par le Maitre du Temps 
de donner un bon coup de 
balai dans ce tas de vilains 
Emerald Isle le premier jeu 



graphique de la maison Plus 
de cent cinquanle images vous 
depeindronl le monde infernal 
dune ile dont vous desirez ab- 
solument vous echapper. 
The Saga Of Erik The Viking 
sort des oeuvres litteraires de 
Terry Jones (de Monthy Py- 
thon). La quote authentique 
dun Viking a la poursuite des 
Chiens Combattants. Epous- 
touflant, meme sans laide des 
magiciens et autres dragons 
en ballade dans cette histoire 



VOLS AVEZ 

DES 
BROCCOLI ? 

Les droits du procham James 
Bond. From a View to a Kill, 
viennent d'etre achetes pat 
Domark, celebre maison d'edi- 
tion britannique Le joueur 
devra se battre conlre ses ad- 
versaires dans les memes 
conditions que le heros dans le 
film. Les ordmateurs sur les- 
quels tournera ce (eu son! 
Spectrum. CBM 64. Amstrad et 
plus tard MSX. IBM PC et 
Apple 

J'aimerais bien voir ladapta- 
tion micro du dernier Bergman. 




UNE QUESTION, 
UNE REPONSE 

Verra-t-on bientol en France 
les quatre titres qu'Activision 
vient de sortir pour MSX? 
C'etait la question. Oui. ils 
sonl desormais en vente. 
C'etait la reponse. M s'agit de 
Pitfall II, River Raid. Beamri- 
der et Hero 




CHANGE PAS DE MAIN, 
JE SENS QUE CA VIENT ! 



Ce coup-ci. les revendeurs an- 
glais ont fail tres fort. Echau- 
des par les baisses de pnx de 
tous les ordinateurs depuis 
trois semaines, ils ont devance 
Commodore et proposent le 
CI 6 pour I equivalent de 800 
francs au lieu des 1500 francs 
recommandes par le labncant 
Reaction de ce dernier: "nous 
ne comprenons pas. ce nest 
pas une decision qui vient de 
nous, ils vendent leurs stocks 
moms cher pour pouvoir bene- 
(icier dun roulement dargent 
permanent". 

Reaction de Tramiel, cet inne- 
narrable gagman qui nous fera 
toujours autant rire. I Alan 



800XL sera desormais vendu 
avec un lecteur de cassettes et 
3 cassettes dont Pole Position 

Reaction d'Apple le Macintosh 
sera desormais brade a 500 
francs (non, je blague). 




QUAND INFOGRAMES PESE 
DES TONNES 



Oans la grande serie des pla- 
giats nullissimes. Infogrames 
vient de prendre une serieuse 
option pour le podium, se met- 
tant ainsi en competition avec 
Bubble Bus. Avec son pro- 
gramme Androides ce sacre 
iditeur a failli decimer les trois 
quarts de la redaction a coups 
de crises cardiaques et autres 
infarctus Rendez-vous 

compte: ils ont ose copier et 
massacrer Lode Runner, notre 
programme fetiche 



BIDAILLE, GRENAILLE 



Ce fichu Mick Bidouille far- 
fouille, depouille et tnpatouille 
loul ce qui louche a la commu- 
nication, au mmiiei et aux ser- 
veurs. Pour une fois ['al reussi 
a le doubler pendant qu'il 
cuvait sa cuite de la semame 
derniere. Comme je suis 
completemenl taux-cul. j'em- 
piete sur ses plates-bandes el 
je vous presente en avant-pre- 
miere un bouqum qui fera les 
delices des drogues de la 
communications Tous les gars 
qui se font une ligne de ser- 
veur avant d'aller se coucher 
sonl concernes "VIDEOTEX. 
possibilites et applications" est 
une mine de renseignements 
pratiques Ce livre publie par 
les Editions de I'Organisation 
n'a que deux defauts 
premierement il date d'il y 
a 6 mois Et depuis. pas mal 
de choses ont change Secon- 




dement il vaut 98 Irancs Ce 
qui fait au moms soixante 
francs de trop Deux mots sur 
les auleurs Jean-Luc Van 
Impe est conseil en etudes et 
communications, ce qui (ne) 
veut tout (nen) dire, el Bruno 
Scweiger esl ingenieur aux Te- 
lecommunications, done bian- 
che 




Reprenons une a une les 
etapes de cet assassmat. Pre- 
mier point, on se demande ou 
est passe le merveilleux heros 
a la demarche si souple que 



tant de tanatiques dirigeaient 
dun joystick sur au travers des 
labyrinthes appeltens et 
commodonens II est tenement 
minuscule que j'ai dii mettre 
mes lunettes en plus de mes 
lentilles pour le trouver sur 
lecran. Deuxieme facette de 
Ihorreur: lorsque vous defon- 
cez le sol a grand renfort de 
laser, c'est pour emprisonner 
un adversaire. pas pour lui 
permettre de changer d'etage 
(comme c'est le cas dans An- 
droides). Troisieme top: les 
cent cmquante tableaux de 
Lode Runner ont singuliere- 
ment reduit au lavage puisqu'i! 
nen reste que dix 
Mais soyons bons joueurs. 
L'editeur de tableaux a ete sol- 
gneusement conserve, ce qui 
permettra aux fanatiques de 
recreer les tableaux man- 
quants II ne reste a regretter 
que le manque de finition des 
graphemes et le manque de 
ceterite tres genant. Enfin. il 
parait certain que ce travail est 
une re-creation sur une idee 
connue et non pas un pom- 
page' I'algorithme de poursuite 
ne ressemble pas a celui de 
Lode Runner Dernier point po- 
sitif, compte tenu des logiciels 
actuellement proposes pour 
Thomson. Androides se situe 
dans une moyenne fort hono- 
rable sans etre parmi les meil- 
leurs. 



VACHEMENT ORIGINAL 



Telerama et Edictel lancent un 
concours dont voici le theme 
ecrire un bon logiciel 




PROGRAMME 
ANTI-THE 



Un projet de loi vienl d'etre 
presente a la Chambre des 
Lords en Angleterre, visant a 
proteger les auteurs et les edi- 
teurs de logiciels. Ceux-ci esti- 
ment a 150 millions de livres 
(plus dun milliard et demi de 
nouveaux francs) la perte oc- 
casionnee par les pi rales de 
tous poils. mais surtout les 
professionnels qui dupliquent 
les programes a grande 
echelle. Les pirates, de leur 
cote, pensent qu'on devrait 
contmuer a les laisser faire: le 
contraire serail etonnant Ce 
projet doit etablir la protection 
de toutes les lormes de logi- 
ciels, qu'il soit sort! ou non 
avant le vote de la loi. Le pro- 
bleme est le doute qu'il sub- 
siste sur la possibilite de copy- 
righter une propnete 

intellectuelle Cette loi permet- 
trail notamment a la police 
d'utiliser des moyens legaux 
pour poursuivre les pirates, 
comme les desoentes dans les 
magasins. chez les particulars 
et la baston pour faire avouer 
ou tas mis la copie de Lode 
Runner, pelit salopard, j'vous 



jure Monsieur I'Agent c'etait 
une copie anli-the purement 
reservee a lusage pnve du co- 
piste. 

Etant donne que les anglais 
ont depuis trois ans une loi pu- 
nissant les copies de cassettes 
video et que nous nen avons 
pas encore, on va pouvoir faire 
des copies anti-cafe pendant 
encore un bon bout de temps. 




BUBBLE BUS, 
C'EST VRAIMENT NUL ! 



Vous ne pouvez pas imaginer 
a quel point c'est nul: un vrai 
scandale. Bon, d'accord je 
me suis un peu enerve, mais 
apres avoir charge cinq des 
derniers titres importes en 
France par MCC je craque. 
D entree de jeu. pas un seul 
logiciel ne contient une idee 
originale: Flying Feathers 
c'est une chasse au canard 
oil on vous prend pour un pi- 
geon, Bumping Buggies est 
pompe sur Burnin Rubbers 
lui-meme pique sur Spy Hun- 
ter, Hustler ressemble a un 
billard mais j'al encore des 
doutes, Kick OH vous invite 




Kfck-Otf 



- Flying Feathers vous 
place au tond d'une barque 
d'ou vous devez tirer sur tous 
les oiseaux qui passent. et 
ce pour les empecher de 
vous voler les cinq malheu- 
reux poissons qui trainent au 
fond de la mars. 

- Bumping Buggies decrit 
la vie passionante dun pilote 
de buggy qui doit franchir le 
maximum de kilometres sans 
tomber dans le fosse 

- Hustler vous fait penetrer 
dans le monde louche et par- 
fois sordide des arriere-salles 
de bistrot oil les parties de 
billard se linissent dans un 
bain de sang, mais dans le 
cas de ce logiciel c'est plutot 
dans une pluie de compo- 
sanls electroniques que la fin 
arnvera apres avoir balance 
le micro dans la tele. 

- Kick Off vous laissera en 
plan dans la premiere salle 
du cafe ci-dessus. autour du 
baby-foot. Si vous pratiquez 
le sport en question a deux 
joueurs, vous devrez changer 
de joystick en milieu de par- 
tie si vous voulez conserver 
la meme equipe durant tout 
le match. 

- Cave Fighter vous fera vi- 
siter des cataepmbes fort mal 
frequences ou vous devrez 
pratiquer la marche dans les 



au baby-foot mais c'est 
completemenl injouable et 
Cave Fighter est une copie 
conforme de Spelunker 
complelement ringarde. II 
faut quand meme reconnaftre 
un aspect positil a tous ces 
logiciels: les musiques des 
pages de presentation sonl 
superbes, ulilisant pleine- 
ment les capacites sonores 
du C64, Mais apres I 'intro- 
duction vous pouvez jeter les 
softs sans la moindre hesita- 
tion! Reprenons les titres un 
par un: 
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airs si vous voulez changer 
de quartier. Un jeu angelique 
en un mot, si vous appreciez 
la mauvaise gestion des 
lutins. du son et du gra- 
phisme. 

On se demande vraiment 
pourquoi MCC s'est lance 
dans la traduction de ces 
titres en francais, ou plutot 
dans la francisation de la no- 
tice puisqu'ils n'onl pas de- 
passe ce stade. Bref, evilez 
imperativemenl ces logiciels 
si vous n'avez pas envie d'al- 
ler poser des bombes du cote 
de MCC. 



HIPPOJOYST 

C'est Japonais. c'est un des meilleurs et des 
plus costauds que Von connait: trots boutons 
de tir, une bonne prise en mains et quatre ven- 
touses pour le colter definitivement sur la 
table de la salle a manger (Super pratique pour 
les repas I). Prise standard pour Amstrad, 
Atari, Commodore 64, USX, Vic 20. Compatible 
avec les interfaces d'Oric et de Spectrum. 
Pour Apple, Thomson et Texas, Tintin: qa ne 
marche pas ou alors it faudra bidouiller I 
Ah, au fait, c'est 100 balles... 
C'est bon, c'est pas trop cher ? Envoyez vos 
sous apres avoir rempli le bon de commande 
ci-joint. Le minlstre du commerce exterieur du 
Japon vous remercie bien bas. 
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Bon de commande a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 




Adresse 


DATE: PU=100F_x_ = _F 

frail cf envoi = +J5F 

cheque joint : TOTAL - _ F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable des 
oroduits signes SHIFT EDITIONS ! 

jri Un ieu d'aventure ; ca va Six jeuxd'a venture, bonjourles nuits blanches ! Vous ai 
™ lez devenirtoura tourexplorateur.espion, egyptologue. cosmonaute. super fit 

roselvictimeducelebredocteurParanaud Sivousarhvezauboutdecessixcas 

se-tete sans probtemes de sante et sans troubles mentaux. vous deviendrez 

sanscontesteundesgrandsmaitresmondiauKdujeud'aventurefUnecassette 

pleine a craquer pour 120 francs 




Voire One utilise lelangage machine pour ref lecture! vous n a vezmalheuteuse- 
ment que voire cerveau humain pour le battre au Morpion ! Le "Laby 5" qui suit 
nest pas plus facile : cinq etages. des trappes parlout et sesascenseurs pas tres 
(tables t Dans "Oil leak", vous devez r sparer une voiture au beau milieu de gran 
des naques d'huile Les goutfres. les ravins et les precipices de "PonHewis" vont 
vous rendre fou ! Le "Parsec" tonce a toute vitesse et la "Guerre nucleaire" est 
tout simplement le premier grand Wargame pour One 120 francs la cassette 
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BASIC ETENOU 



► a 



"Dork crystal' est sans nul doute un 
des plus beaux et rapides jeux 
cents pour Tl 99 ; voire heros doit re- 
cuperer des fragments de crista! dans 
le labyrinthe qui est le Neu a la mode 
pour tous les monstres branches de la 
galaxie ! Les au tres jeux sont tout aus- 
si efficaces : unsuperbesauteursursa 
pyramide. un duel pour deux joueurs 
en armure, un casino avec 3 jeux de 
cartes, une cent rale nucleaire et 'Mis- 
sion penlleuse" qui vous transportera 
dans une jungle hostile en deux somp- 
tueux tableaux 120 francs les 6 jeux 
en basic etendu. 



f MMMO&9 






Chanim SfwtKong 

^ SPECTRUM N-1 





Desjeuxd'arcadea gogo changezle 
cours delhistoirea Pearl Harbour, gui- 
dez AI bert et Kong dans I eur pyramide 
favorite, jouez a un jeu de balle en- 
tier em en t no uvea u. construisez 
d'enormes murs avec voire grue de 
chantier et regalez vous avec de la te- 
quila : plus vous en buvez, plus vous 
desamorcez facilement les bombes 
de "Caramba'l Six super program- 
mes pour 1 20 francs. 

Deux jeux d arcade ou vous serez 
un courageux pompier, ou pilote 
d'unemolo de course (onclionnantau 
langage machine. Viennent ensuite la 
reflexion avec "Puzzle* et la stategie 
avec "Mmeur" ou vouspourrez organi- 
ser des competitions jusqu'a 5 
joueurs. L'avenfure enfin avec "L'inca 
dor", un fabuleux jeu graphique en 3 
dimensions 6 super-programmes 
pour 120 francs 




Des jeux. de lelectricite et du plaisir. 
voiladequoifairefretillerles electrons 
dans voire M05 et quand en plus ces 
jeux sont multiples el douze vous envi- 
sagerez quelques nuits blanches 
d'Othello. de Poker, de Memo 7- Des 
que 1'immobilite vous paraitra insup- 
portable, parlez pour lespace pro- 
fond (Worp) ou retrouvez vos amis (d - 
chier d adresse) Vous verrez. vous 
11'encroirez pas plus vos yeui que vo- 
ire M05 nen croira ses jeux ! 

^ BON DE COMMANDE A REN- 

* VOYER A SHIFT EDITIONS, 27 

* rue du Gal Foy 75006 PARIS. 

W Nom/prenom 

j* Adresse 



* Code postal 
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SPECTRUM N°1 
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* TEXAS N° 4 
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120F 


,. ZX81M°1 
* MQ5NM 
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120F 
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160 F 
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». - REGLEMENT JOINT : ,00f 

DATE 

* 



DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concoura de plus! 
Rien de bien original dans 
cette tormule, pourtant nous 
essayons de (aire quelque 
chose de different: nous orga- 
nlsons un concours perma- 
nent tous les mots et tous les 
trimestrest Et avec des prix 
dignes des programmes que 
vous allez nous envoyerl 
Oe plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle. 

Pas de jury, pas de decision 
arbltralre, HEBDOGICIEL nin- 
tervenant que dans le choix 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. SI votre programme 
n'est pas tout a fart au point 
un de nos specialises vous 
dlra comment I'amellorer pour 
pouvolr nous le proposer a 
nouveau. 

Pour psrtlclper, II vous sufftt 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation alnsi que 
toutes les explications neces- 



salres a I'utllisation de ce pro- 
gramme. 
Bonne chance! 
Reglement: 

ART.1: HEBDOGICIEL organise 
de facon mensuelle el trimes- 
tnelle un concours dote de prix 
recompensant le meilleur logiciel 
du mois et du tnmestre. 
ART.2: Ce concours est ouvert 
a tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L envoi dun logiciel en 
K7 ou disquette accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL 
constitue I'acie de candidature. 
ART.3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selectionner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publics dans le 
journal. 

ART.4: Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs jogiciels mensuels et 
trimestriels 

ART. 5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 



ART. 6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7: Le present reglement a 
ete depose chez Maitre Jauna- 
fre 1 rue des Halies 75001 

ART.8: HEBDOGICIEL se re- 
serve le droit dinterrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avanl. 

ART.9: La participation au 
concours entrafne lacceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 1 
gramme qui aura obtenu le ' 
plus tort pourcentage de vote 
par rapport a la totalite des 
programmes recus pour un 
meme ordlnateur. 
Ainsi. pas de favoritisme pour 
les ordlnateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Nom : 

Prenom 

Age Profession 

Adresse 

N' telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui nest ni une imitation m une 
copie dun programme existant Ce piogramme reste ma propnete et 
I'autonse HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire . 

(Signature des parents pour les mineurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne dun descnptif detai lle du materiel utilise. 

d une nojice d utilisation du programme Les supports des program- 
mes pubhes sont conserves, n'oubhe* done pas d'en (aire une copie 




ICI RADIO DEULIGNE 

En direct du salon de noire appartement, nous emettons Jean-Marc CAZALE trouve lecran de sa tele tout tnste. 

aujourd'hui a lintention de tous les fanatiques de deuli- alors il y a remedie subtilement: admirez le travail ! 

gnes Nous savons deja que tout le monde dans I'im- 

meuble nous caple tres bien. a vous amis du HLM den ▼ Listing COMMODORE 64 

face de nous dire si vous nous recevez. Merci. . 

1 FORI =OT08 REflDfl P0KE3<;S* I . fl NEXT DflTfl 1 
Accessits du jour, montez sur le podium Non ! Pas sui 62,255,202- 142,32,208.208.250>96 

2 SVS828 G0T02 

Cyril RIVAULT a du, dans une vie anterieure. travailler 
du marteau-piqueur... Et il lui en reste quelque chose ! 

▼ Listing AMSTRAD 

10 MODE PEN 12:L0CHTE 1,12 PRINT 
"PARKINSON'S DISEASE" 'LOCATE 3,16 
'PRINT "IS WATCHING YOU" FOR 1=1 T 
2000 NEXT : OUT 255, 8 : OUT 256,1 
20 GOTO 20 REM BREAK 8. OUT 256,2 



Jacques GlHAHD n ignore rien de la masturbation miei- 
lectuelle La preuve. il vous offre son "masse-cerveau" 
en deuligne. 

▼ Listing TRS 80 

1 CLSiPRINTiX*-STRItBND<9E3)*lE3>:FORK-lT01E*>PRIN 
T,CHR»(27)B|MIMIl)-X»HNPUTAin-B<B-Bl|F*<lE30RA-' 
1E«THCNB>?iNEXTELSER*<;i-5TR«(A) tc-C*l iFORl -2TOS i 1 
FniD*(Xl. t . I )>nlD«<R*(2i, I . 1 1B-B*1 iFORJ>1T02iR*IJ> 
'■LEI T1< Fill. I > . 1-1 )»■ • •-RIGHT* <R*<J>, 3-1 XNEXTJ. IELS 
ENEXT 

2 R*MDOHllF»-»TH£r*PRINr-GAGNE EN *C* COUPS' ELSEFORI 
-2T031FORJ-2T05i*«-HID«lR»l 1 J. 1. 1 n IFA»«* *THEtMEI 
TJ,l,KELSElFA«-HIM(MI2>.J.l)THEN«-H*ltR»HI-LEFT 
• IRWIII. !-!)*• -*RIGHT»(R»1 11,3-11 1(MI21"LEFT«<R«( 
2).J-I>*" ■♦RIGHT«IR«I2I.3-JHNEXTJ. t.KELSENEXTJ. 1 



^ 



Stephane CAFFINET, a peine revenu de soi dernier se- 
jour sur Mars, nous offre un film de son voyage de re- 
tour. Eprouvant ! 

▼ Listing TEXAS 



Grand gagnant de I epreuve. pour cette semaine. Bruno 
de la BOISSERIE nous propose de quoi preparer ses 
nerts aux chocs les plus violenls Apres quelques heures 
de pratique de son jeu. vous ne pourrez que garder 
votre sang-froid 

▼ Ustlng CANON X07 

1 PRESET (U, Yl : A=STICK(0) SY-Y- IA=5» 
*<A=1)-(Y<1> + <Y>30) :W=XM0DH8:PSET 

(U,Y> :x=x*i 

2 IFPOINT (W*l , Y! THENPRINTX "Pta " : EN 
DELSEG=RND<1 )»118: J=RND( 1)*32:PSET 
(G, J) IGOTOI 



Kanm SEGOVIA remporte tranquillement une victoire. 
dans la categone humour gras Admirez 



T L/*f/ng THOMSON 



1 Clj»CLEhR, •?:DEFGRf l i ;. .6,60, 252.66. 124 
.08. 16, 56: DEFCR* (2) -128, 248, 248, 238. 259. 
1 X=1B4 !! CALL SCREEN<2>;= CALL CHARI96 2^8. 122 . 2501 0ErGR»v 3 ) =256. 238, 126, 66, 66, 
."00C0706B^F70C000101010102e=87C44") : : F -^ * *»' * 6 ' D f F 5 ft ?i 4 *f ' ' 1 ' 3, 6, 4, 4, 4, 6«! DEF 
OR 1-2 TO 15 :: CALL SPRITE (« 1 . 96. 1 1 . 1 • 1 GRt ■ 5 J-8, |, U 2, 12, 1 5, 12, 6. DEFCR«<6)-8. 8, 

S'SK a SSfcSESS 1 JF , SiIi 1 «. p-83 th f^hi^l^?^;f4?;rAIi?^i3JS?r4;Ja^ 

EN PRINT P ELSE CALL SPRITE (# 1 . 97. S. X . 90 F I NTCR8.4 > *GP»< 3) : NEXT I : FORM-1 T09: LOCATE 
I:: CALL KEYtO.K.Sls: IF S-0 THEN 2 ELSE ?, 1 1 1 PRIMTGR«<6>*CR*(2): MEXTU:C0T02 
X = X-8 :: IF X. = l THEN P-=P*1 :: GOTO 1 E 

lse 2 Ciao et a la ptochaine . . 




VENDS AMSTRAD couleur. 
cause double emploi, tout neuf 
dans lemballage 4500F (a de- 
battre). Patrick BLUM 64100 
STRASBOURG. Tel (88} 34 76 
45. 



(NDLNC Eh les mecs fat quel- 
que chose a vous demander. 
Voila, vu que ca fait bienfot un 
mois que je m'appelle la nou- 
velle clavisle. j'aimerai bien 
changer mais je sais pas 
comment je vais m'appeler, 
ators soyez sympa creusez-vous 
la tele et trouvez-moi un autre 
nom, merci !!). 

AMSTRAD 

Cherche toute sorte de program- 
mes Marc POINSOT 62. Rue 
Emile Coue 54000 NANCY 

CHERCHE possesseur dAMS- 
TRAD pour echange de logiciels 
et didees. Richard GUIL- 
LAUME. 42 bd. Carnot 21000 
DIJON. Tel :(80) 65 46 96 

CHERCHE possesseur d'AMS- 
TRAD pour echanger des pro- 
grammes, des idees. des trues. 
etc Je possede deja de nom- 
breux programmes. R GOUDOT. 
8 Allee de la verdurette 54520 
LASCON 

Salut les petils. En un seul mot 
je possede un paquet de jeux 
sur AMSTRAD. Je desire les 
echanger contre d'autres. Geor- 
ges de la jungle (ce nest pas 
une plaisanlerie). Tel ; 057 00 
97. (NDLNC Moi Jane, pourquot 
toi insmuer que georges de la 
jungle etre ptaisanterie, la pro- 
chaine tots moi (aire bouffer toi 
par lion d'hebdogiciell 



ATARI 

VENDS ATARI VCS + manette 
+ Super Cobra + Defender : 
525 F Franck KEBCI. 3 rue du 
hameau 78500 SARTROU- 
VILLE. 

CHERCHE magnetophone pour 
ATARI Raphael CHAUDRIN 25 
rue de la Maine 91270 VI- 
GNEUX S/SEINE. Tel: 942 85 
59. 



VENDS ATARI 400 PERITEL 
avec magneto 1010 + Basic + 
livres + 15 livres +■ 15 logiciels 
pnx a debattre. Tel : 227 91 34 
apres 18 heures. 

ACHETE has prix lecteur de dis- 
quefte pour ATARI 800 800 XL 
Faire offre par tel. au (91) 90 52 



VENDS cartouches ATARI 2600 
(15 environ) ; 100 F. piece. Tel: 
16 1 533 93 72. 

VENDS ATARI 2600 + 1 1 K7 + 
2 poignees + mini clavier a 12 
touches avec emballages, noti- 
ces : 2300 F. EN CADEAU une 
TV. NB. ou 3 jeux electroniques. 
Tel: 806 80 78. Ares 17H30. 



CHERCHE pour ATARI 800 XL 
et 600 XL toutes sortes de pro- 
grammes. Sacha CUSKOVIC 
100 rue Lemercier 75017 
PARIS. 



VENDS ATARI 400 + lecteur de 
cassettes + 3 cassettes initia- 
tion a la programmation -+ basic 
+ 2 jeux + 1 manette Le tout 
pour 3000F. Mr Jean LAMPA- 
ZONA. 29, avenue de la grande 
terre. Residence du pare. 13770 
VENELLES 
Tel :16(42)61 09 71 



VENDS ordinateur jeux ATARI 
+ 9 cassettes (Decatlon, Pole 
position, Tennis. Tukankham. 
popeye etc..) + 2 joysticks. Ex- 
cellent etat : r ensemble 1500F 
Valeur 3000F Tel : (20)70 16 



68 

VENDS ATARI 800 XL + ma- 
gneto + K7 Autoformation Basic 
1 ,2.3, + logiciels dimension x t 
Forbidden Forest + Zeepelin + 
Pylhagore +■ Matuvu f manette 
+ livres : 3500 F. Tel 989 11 
22. Apres 20H. 

VENDS VCS ATARI 2600 + 1 1 
K7 * prise de branchemenl - 2 
poignees 2300 F. 4 en cadeau 
: 3 jeux electroniques en parlait 
etat avec notice. Tel: 806 80 78 
(NDLNC: Dis dont tes genereux 
toi. c'est pas souvent qu'on fait 
des cadeaux comme ca I Au fait 
en padant de cadeau si tu a 
envte den tatre a ce point la. 
penses a moi !!!). 

VENDS ATARI VCS + manettes 
t Super Cobra 4 Defender : 
525 F. Franck KEBCI 3 rue du 
hameau 78500 SARTROU 
VILLE 



COMMODORE 

VENDS pour COMMODORE 
C64D drive 1541 sous garanlie 
+ nombreux programmes 4 au- 
toformation au basic tomes 1 et 
2. Tel: 882 06 61 apres 19H 

VENDS CBM 64 Pal + lecteur 
de disquettes 1541 + fiche peri- 
tel + livres + nombreux pro- 
grammes (jeux, utilitaires). M. 
PAYE. 428 rue Lefebvre d'Orval 
59500 DOUAI. Tel: (27) 98 40 
41. 

VENDS COMMODORE 64 + 
moniteur monochrome vert, (Ze- 
nith) + magneto K7 commodore 
+ manette + jeux ; 3500 F. TeL 
794 71 99. Demander Fabten. 



VENDS COM 64 + magneto ♦ 
4 K7 ■ 1 |Oystick f 1 psi 3000 
F. Jean Marc VITRANT 30 rue 
de la commune de Paris 59610 
FOURNIES. Tel: 60 63 34 apres 
17H 



ECHANGE pour COM 64 divers 
programmes et VENDS (ou 
echange) Zaxxon: 150 F entie- 
rement neuf Jean Marc VAR- 
NET. 35 BD Gambetla 38110 
LA TOUR DU PIN Tel: (74) 97 
03 62(NDLNC: Merci de fm- 
quieler pour mon boutot mais 
rassure -toi /'en manque pas) 



VENDS COM 64 + lecteur de 
K7 + Quickshot 2 + livre + 
revues + programmes : 
2500 F. L BOUMEDDANE. 9 
avenue de la Redoute 92600 
ASNIERES. Tel: 798 86 39 



VENDS COM 64 + magneto + 
cordon p4fntel + 400 logiciels 
haul niveau- JF. HERRY. 43 rue 
Chaude 78240 CHAMBOURCY. 

VENDS magneto CBM 64 : 280 
F. en cadeau : 2 K7 jeux, port 
compris VENDS nombreuse 
revues Info, liste sur demande. 
Xavier MAUDET BP fV 8 79700 
MAULEON.(NDLNC: Encore un 
cadeau. et moi ators .' On men 
fait jamais des cadeaux a moi ! 
sniack !!). 

VENDS COMMODORE 64 + 
lecteur de k7 + joystick + nom- 
breux programmes (jeux. utilitai- 
res) + livres + cordon peritel : 
3000 F. Tel: (3) 033 09 16. 

A SAISIR COM 64 + lecteur de 
disques + lecteur de K7 + 10 
dtsques : 6600 F. Tel: (37) 31 
14 78. 



VENDS console CBS ♦ 6K7 
(buck-rodgers. cosmic advenger 
ate...) * module Turbo i ma- 
nettes High score 1 390F ou 
echange contre ATARI 800XL 
Erie LEFORESTIER Tel 725 29 
92 

CBM 64 |e cherche jeux ou utili- 
taires sur K7 ou 1541 Possede 
un grand choix pour echange 
Demander Mickael au 376 90 
56 

VENDS COM 64 (secam) + ma- 
gneto K7 t i livre initiation 
Basic sur Commodore f 1 livre 
programmes t en prime Hebdo- 
giciel divers : 4500F le tout Ve- 
ronique GODLIN 4. rue de 
Creau 33000 BORDEAUX Tel 
16(56)44 09 95 

CBM 64 cherches asluces. 
idees el echanges programmes 
de jeux et utilitaires Demander 
Eric au (88) 38 58 56. 

CBM 64 Echange nombreux 
programmes Mr Pascal MI- 
CHEL 61 rue Charles de Gaulle 
54121 VANDIERES Tel : (8) 381 
55 39. 

VENDS CBM 64 4 doc Irancais 
t lecteur de cassettes + cable 
peritel + 50 programmes (Tool 
64 -Defender- Pole position etc.) 
Valeur 8000F vendu 3500F. 
Tel : 433 66 70 apres 20h. 



ETUDIANT desespere CHER- 
CHE genereux donnateur de 
COM 64 contre petit Tl 51 II. 
Stephane LESERGENT. ST Hl- 
LAIRE sur Risle 'le FuteT 61270 
AUBE. 



VENDS console CBS + 4 cas- 
settes dont Tarzan. Decathlon. 
Venture el Donkey kong + 
adapteur antenne Garantie jus 
qu'en aoul 85 : 2200F ou sans 
adaptateur 1900F valeur 2700F. 
Mr LETY 19. rue Combajeon 
69230 ST GENIS LAVAL Tel : 
(7) 856 13 27. 

CASIO 

VENDS imprimante traceur 4 
couleurs CASIO F 1011 : 1000 
F. Jean LAVERGNE 16 rue des 
Cordeliers 86000 POITIERS 
Tel: 49 41 02 61. 



VENDS CASIO PB 700 sous 
garanlie +■ manuel + housse t 
1 livre "La decouverte du PB 
700" * 2 livres de programmes 
1500 F. ou ECHANGE contre 
CANON X07 Tel 532 30 42 
apres 19 heures 



VENDS PB 100 CASIO + ex- 
tension memoire + interlace K7 
+ livres 4 programme Pilot" : 
600 F. Bruno DOBIGNY 148 bis 
rue Maurice Rigolet 91550 
PARAY VIEILLE POSTE. Tel: 
938 94 88 



VENDS CASIO FP 200 
F Tel: 722 18 81 



1500 



VENDS CANON X07 20K en- 
core sous garantie, avec acces- 
soires : 2500F. Georges 

BASSES. 67,69 rue de la colo- 
nie 75013 PARIS. Tel : 580 92 
06. 

VENDS CANON X 07 16K + In- 
terface K7 + 20 programmes + 
doc > alimentation optionnelle 
+ nombreux listing Basic et Ian- 
gage machine. Le tout 2200F. J 
PAUMIER 17 avenue nationale 
91300 MASSY. Tel :01 1 87 74. 



VENDS CANON X07 + CHIPS 
8K (neut) + 3 manuels CANON 
+ 50 programmes (K7 et 
List), (utilitaires. jeux) + nom- 
breux programmes en LM (ass., 
desass.. util.,) + doc sur le LM 
du Z 80 + emballages + garan- 
ties : Le tout 2500F Stephane 
BAUDET. 5 rue des Vignes 
77470 TRILPORT Tel: 434 49 
10 apres 18h. 

VENDS CANON X07 8K + 4K 
+ alimentation secteur + cordon 
K7 + nombreux programmes 
(avec HEBDOGICIEL) + cas- 
sette HEBDOGICIEL SOFT N° 1 
: 2000F. J-P BAILLON. 39. rue 
Emile Male 03400 YSEVRE. 
Tel: (70)46 07 91. 



C'est I'histoire dun mec qui avait plein de logiciels en stock, meme qu'il arrivait pas a les vendre tous Les essayeurs lous d'Hebdogiciel les avaient testes, avaient 
selectionne les bons. les marrants avec des jolies jaquettes et des modes demploi en frangais. Et comme le mec il voulait sen debarasser. Hebdogiciel a rachete les 
meilleurs pour une bouchee de pain brioche. Hebdogiciel. il tes a maintenant dans son stock a lui et il les vend a un pnx meme les anglais en ont jamais vu comme ca ! 
Comme d'habitude. vnus envoyez vos-sous au General Foy et vous criez le plus fort possible: "Merci. I'HHHebdo" !". 




60 FRANCS ? CA VA PAS LA TETE ! 



MOTKE EM FHAMCAS 



SPECTRUM 

BLADE ALLEY 

Secteur mal fame attend liberateur au grand 

coeur. Ne pas oublier son laser lourd. 

CENTI-BUG 

Centi = cenli, bug = p> 

PEDRO 

Toi grand jardinier, n 

manger fleurs a toi, toi 

ZOOM 

Beau, tres beau. Dur, t 

sionnant. un vrai jeu de 

STONKERS 

La guerre a deux, cc 

drole que tout seul. 

ALCHEMIST 

A la poursuite de la pit 

perdrez plus dune foi 

passion 

BEAR BOVVER 

A la poursuite de la pile perdue pour voire 

camion electrique. (aussi sur Commodore) 

JAWZ 

Comme tout bon requin qui se respecte. la 

faim vous fait sortir du bois Plein de pois- 

sons dans le viseur vous remonterons le 



LES FLICS 

Un diamanl comme la panthere rose, ca v aut 

bien quelques meurtres non ? 

APPLE JAM 

La boulimie vous guelte. mais le sauna vous 

attend Out ! 



STARBLITZ 

Vite et bien a lassaut des galaxies ennemies 



ZX81 




i a vos puits de pe- 
puissance. A vous la 



iporte quel Space In- 
Sur ZX > (aussi sur 



a existe La preuve ! 

PORE 

KRISTAL OF ZONG 

De laventure. des epees. des monstres. des 
tresors et tout au joyslick Un must absolu 
DEFENDER 64 

Mieux qu'au cale. sans effort. I'humanite a 
sauver Une paille a trouver dans une tonne 
d aiguilles 

ORIC 

LIGHT CYCLE 

Des motos et des hommes dans un univers 
electromagnetique Des vibrations angoissan- 
tes assurees. 



LES SUPER-METEORES 

Voire vaisseau dispose de quoi faire sauter la 
moitie de la galaxie, mais vous devez d'abord 
traverser ces putains de champs d'asteroi- 
des. Dur. tres dur I 
ARENA 3000 

Vous etes presque aussi baleze que Super- 
man et Goldorak reunis mais tous. absolu- 
ment tous les occupants de cette arene vous 
en veulent a mort. 
SCUBA DIVE 
Les huitres c'est bon | 
pe des _ 

ipuise! 
CENTIPEDE 

Grand classique. Innenarable I (aussi sur 
Commodore) 
THE ULTRA 

Malheureusement, il ne sait compter les ta- 
bleaux que jusqu'a cent ! 
ELEKTRO STORM 

Grace a Dieu, vous disposez encore de quel- 
ques teles nucleaires pour proteger votre 
"Home sweel home". Une chance, non "> 
LA REVANCHE DE DRACULA 
Oue vous tuiez les loups-qarou. Ies_j 
ou les goules. le mern^^iwsOn'n'era annon 
qanX^^jOli^* Jibpanlion prochaine: 

JOUUUUU ! Epuise! 
LE GEANT DE GLACE 

mi mill i niiTrrrrnTT I 'm i i nil iih r*|ini {' 

M.A.R.C. 

MARC pour "Maman les Aliens Recommen- 
cenl leurs Connenes'' Infernal el genial 




NOTICE EN FRANCAIS 





p m BON DE COMMANDS A RENVOYER A :' "I 

SHIFT EDITIONS, 27, rue du General Foy, 75008 PARIS 



PRIX UNITAIRE 



FRAIS D'ENVOI 




HOVCf. EN FRANCOS 





VENDS MSX CANON V20, 64K 
+ magnetophone + cordons 
(p6ritel et magneto) + cassette 
+ livres. Le tout 3500F. Tel 
: 16(57)51 62 59. 

VENDS CANON X07 (20K Ham) 
i carte programme moni- 
teur/desassembleur (XP-140) + 
cordon cassette (XC-910) + ali- 
mentation secteur (AD4-2) + 5 
manuels d'ohgine + desassem- 
blage de la ROM Basic + 
nombreux programmes sur K7 
(jeux. maths, utilrtaires) + 4 pro- 
grammes de POCKET-SOFT 
(graph, calc, fichier) + nombreu- 
ses astuces. Le tout en bon etat 
pour 2500F. Tel : 287 34 53 
(apres 18h) 

VENDS CANON X07 neuf 
(01/85) + carte scientifique XP- 
1 50F (8K ROM/4K ROM) + cor- 
don K7 + secteur + 3 manuels 
+ 2 livres de programmes + 2 
K7 logi'stick (jeu/frchiers) + k7 
Hebdogiciel + 2 livres sur le 
basic + programmes hebdogi- 
ciel 39 a 70 + 20 autres pro- 
grammes + 40 revues micro. 
Valeur 4000F vendu 2000F. Mr 
Reza ELGHAZI 85 bis, bid Su- 
chet 75016 PARIS. 

VENDS Configuration CANON 
X07 comprenant: X07 + exten- 
sion carte memoire 8K + ali- 
mentation 4 _ table tracante 4 
couleurs + cable interface cas- 
settes • programmes manuels 
et emballages d'origine foumis 
(3/85) : 3500F, Pierre LTZ. Tel: 
763 87 85 apres 20h. 

SHARP 

VENDS SHARP PC 1500 + mo- 
dule 8K. Parfait etat Nniic* ar>- 
glatse et Irangaise Housse 
Nombreux programmes tournis : 
1400F Tel :(93) 85 49 50 Guil- 
laume 



VENDS SHARP PC 1212 * Im- 
pnmante SHARP CE 122 I Do 
cuments initiation au basic + jeu 
adapte el programmes scientifi- 
ques (facultalif) 700F (achal 
janvier 84, neuf). Mr FLATTOT 
Christian. 9 rue Gambetta 83400 
HYERES ou telephoner au 
16(94)35 62 58 



VENDS VIC 20 i cartouche 
1200 F ou avec 4 cartouches : 
1500 F. Tel: 971 73 84. 

VENDS VIC 20 i lecteur de K7 
* programmes t 2 livres 1300 
F Tel: (42) 71 46 92 

VENDS VIC 20 unite centrale 4 
lecteur K7 + livres et K7"imtia 
lion au basic" + 1 K7 de jeux : 
1600 F Tel: (16 33) 61 01 99 
aux heures de repas unique- 
ment le week-end. 

CHERCHE possesseur de VIC 
20 pour echange d'informations 
diverses. V GRASSIN. 23 rue 
de Rheas 79300 8RESSUIRE 
Tel: 16(49)78 18 60. 



VENDS VIC 20 + magneto K7 
■ 2K7 (30 programmes utilitai- 
res et jeux) + 1er tome autofor- 
mation au basic + listing : 1500 
F + joystick Spectravideo : 80 
F. t extension 16 K : 450 F. f 
2eme tome autoformation au 
basic : 400 F Lode Runner 
140 F. + Radar Ratrace (mo- 
dule) : 200 F. + Penny Slot : 
120 F. + Galaxzions : 120 F. + 
Itvre "les grands classiques du 
jeu pour voire VIC 20" : 70 F. ou 
le tout : 3000 F. a debatlre 
Philippe BOUQUET 133 avenue 
des Lilas 59850 NIEPPE. Tel: 
(20) 48 63 20. (NDLNC : Eh. 
c'est plus une annonce, c'est un 
toman ton true la ! C'est pas 
parce que c'est gratuil qu'il faut 
en profiter !). 

BROTHER 1009 ayant des diffi- 
cultes de cohabitation avec VIC 
20, RECHERCHE jumelle ayant 
meme deboires sentimenlaux 
face aux carences de lagence 
matrimoniale Brother et de ses 
entremetteurs (Jaille Rouens) 
tel: (35) 94 91 58 apres 
1 7h30 (Nm NC Pniir In cnnrner 
du coeur In Cos trompe 
dadresse. t'Hebdo c'est un jour- 
nal pas une maison de rendez- 
vous III). 



VENDS EXT 16 K pour VIC 20 
400F Port compns Mr JOSSE 
LIN Belloy 60490 RES- 
SONS MATZ TEL (4) 485 01 
59 

VENDS pour VIC 20. ext sup- 
expander (3 KO l commandes 
graphiquest.etat neuf :300F; 
ext. 32 KO. etat neuf 600F 
P.Yves CHABROL 27.av. Aris- 
tide BRIAND 65000 TARBES 
Tel (62) 32 17 99 

VENDS VIC 20 t magneto K7 
t manette de jeu i 40 jeux sur 
K7 + cartouche "Sargon II 
chess' + manuel + la decou- 
verte du VIC 20 * TV NB : 
2300 F. Tel (16 25) 05 71 46 

CHERCHE tous programmes 
pour VIC 20 + 16 KO sadres- 
ser 1 5 allee des peupliers 62600 
BERCK PLAGE 

VENDS VIC 20 SECAM + peri- 
tel + 8K + pnse magneto + au- 
toformation Basic (livre + 2 K7) 
+ 2 livres de jeux : 2000 F. 
Dourouni FAOUZZI 29 avenue 
Henn Barbusse 93120 LA 
COURNEUVE. Tel : 838 23 15. 

VENDS VIC 20 * magneto K7 
+ jeux + 4 livres + autoforma- 
tion Basic 1000 F Tel : (16 7) 
823 94 78. 

VENDS VIC 20 module de jeux 
ALIEN + menagerie + adven- 
ture land + pirate cove + aven- 
ger : le tout SOOF Tel : 241 81 
65 apres 18h. 

VENDS VIC 20 secam + peritel 
+ extention 16 K + cartouches 
jeu : Moon Patrol, Lode runner. 
Cosmic cruncher r livres de 
programmes pour VIC 20 + 
cassettes + programmes du 
commerce sur cassettes + plan 
pour mettre 1 magneto standard 
sur le VIC 20 ■ le tout 2600F. 
Tel : (80)41 31 11. Rodolphe 

VENDS VIC 20 Etat neuf + ma- 
gnetocassette + manette Quick 
shet 3 * 4 jeux + manuel ; 
2500F (a debatlre) 

VENDS VIC 20 Pal/secam sous 
garantie + ext 16 ko + livres + 
modules + (rond race, lode run- 
ner) : Valeur 3500F vendu 
2200F et Vkleopac avec ecran 
incorpore + joysticks + 7 car- 
touches (valeur 2700F) vendu 
15001 Mr THUILLIER 

Tel:(4)441 18 24. 



VENDS VIC 20 Secam (6 mois). 
je donne en cadeau 2 livres + 2 
cassettes + 1 module Vends 
Ext. 16k + modules de |eux 
Star Battle. Centipede. Sargon 2 
chess. Golf, the count, Cosmic 
Cruncher +■ 1 cassette : Race 
tun. Le tout ou separemment a 
un prix Ires interessant a debat- 
lre Tel :(85)36 08 01 heures de 
repas. 

VENDS VIC 20 (12 82) < IF 
Secam * 8K + magnetophone 
+ joystick + 5 cassettes jeux et 
divers + 9 livres sur le VIC : 
3000F (valeur: 4500F) J RI- 
CHER 8. rue Delzons 15000 
AURILLAC. Tel (71)64 34 04 



VENDS VIC 20 Peritel peu 
servi, excellent etat. I magneto 
K7 + livre programme de jeux 
+ 2 cassettes * autoformation 
Basic: 1850F Franck MENA- 
GER 56. Le Vivier 59600 MAU 
BEUGE. Tel : (27)62 29 72 

VENDS pour le VIC 20 une ex- 
tension Vixen (16 K, 8K, 3K 
dans le meme boitier) I ma- 
gneto + K7 de jeux ( Snake pit. 
Trakk arcadia) t 1 joystick. Le 
tout en bon etat cede pour 
900F. Yvan RICHARD 8. rue 
Euclide 44800 ST HERBLAIN 
Tel 86 31 36. 

VENDS VIC 20 sous garantie (6 
mois) + monileur monochrome 
vert KAGA + 4 K7 jeux (echec, 
flight solo) + 3 livres + magneto 
cassette + extension 16 K + 
cartouche programmers aid + 
carte permettant le branchement 
de plusieurs cartouches d'exten- 
tion en meme temps Le 
loul :28O0F Tel : 750 98 26. 
(soir) Mr Franck LAMAS 743 
avenue R Salengro 92370 CHA- 
VILLE. 



VENDS VIC 20 (garantie |usqu a 
juin 85) Tres bon etat cede a 
2995F (valeur 3600F) avec lec- 
teur enregistreur K7 + cours 
BASIC t joystick + cartouches : 
AE. Seafox. Cosmiads. Bewit- 
ched + nombreux programmes 
offerts. Demander Mickael au 16 
(21) 45 17 35 apres 17h. 

VENDS pour VIC 20 SEIKO 
GP100VC etat neuf :1900F. 
SARGON 2 200F. ALIEN et 
OMEGA RACE 150F L LAR 
SONNEUR 28 bid E.GENEVOIX 
93230 ROMAINVILLE. Tel : 844 
04 22. 



VENDS pour VIC 20 carte 32 K 
possibilile 3K. 8K. 16K. 32K. 
passage de 40 colonnes pour 
VIC 20 700F. Mr J M BOU- 
CHEZ 104. rue J.LEBAS 59150 
WATTRELOS Tel 16 (20)02 
95 13 apres 18h 



Recherche maneltes de jeux 
pour T07. Herve CASSOLY 
Tel : (58) 79 56 79 

VENDS pour T07 logiciels 
World War : 50F, Pingo : 50F. 
Chasseur Omega : 50F, Elimina- 
tor : 70F, Oulsard 2 90F. Yeti : 
90F, FBI 120F. Cede tout 
pour : 450F. Frederic au (1) 645 
33 07 

CHERCHE a echanger des pro- 
grammes pour T07 avec ou 
sans extension 16 ko memoire 
MP DRILLON 1 bis. avenue de 
la Solis 13600 LA CIOTAT. 

VENDS T07 (UC) + magneto + 
cours basic + adaptateur peritel 
+ melodia + 3 livres + docu- 
ments t logs sur cassette etat 
neuf sous garantie : 3000F 
TRAPET Raphael 212 rue de 
Romainville 93260 LES LILAS. 
Tel 843 70 16. 

Nouveau club informatique de la 
region Brestoise recherche pos- 
sesseurs de TO7-70 (ou T07) 
pour echanger programmes. 
Sadresser a Mr Yvan MICHEL. 
8 rue de Bourgogne 29215 GUi- 
PAVAS 

VENDS pour CANON X07. 2 
cartes memoire 4 Ko (garan- 
ties) : 450F + livres de program- 
mation du Z80 de Rodnay Zaks 
collection Sybex : 140F. Mr 
CRAME Antoine. 17, rue 
A.FRANCE 69120 VAULT en 
VELIN. Tel : (7) 880 94 47. 

VENDS pour CANON X07 
carles fichiers (XP-110F) graphi- 
que (XP-130F) et table (XP- 
120F). Pour le prix de 1100F les 
trois ou 400F lune. Sadresser a 
Mr BLANCHARD 80 rue Jean 
Durand 93240 STAINS. Tel: 
826 67 32. 

VENDS Interlace tele couleur 
peritel pour CANON X07 + Ali- 
mentation 1400F URGENT. 
MR GUILLEMOT Daniel. Tel : 
412 16 33 apres mid i ou soir 



VENDS CANON X07 t Imph- 
mante X-710 + cordon secteur 

* cordon magneto I alimenta- 
tion X07 + carte extention 8 Ko 

t manuels d utilisation +■ cas- 
settes de jeux : 4000F Nicolas 
FUMERON 165 avenue Dau- 
mesnil 75012 PARIS Tel :340 
47 06 apres 20h 

TI99 

VENDS TI99 4A Ires bon etat 
(12-83) avec modules de jeux, 
mini memoire * manuel assem- 
bler, cable K7. nombreux pro- 
grammes sur K7, interface RS 
232 C. livres avec trues et pro- 
grammes + poignees 2800F a 
debatlre. Eric LEROY 7, rue 
Notre Dame des Vignes 77120 
COULOMMIERS. Tel: (6) 403 
52 05 Apres 18H 

STOP AFFAIRE ' VENDS micro 
ordinateur TI994A t Interface 
secam france + manettes de 
jeu : 1200F (valeur 2350F), ex- 
tention memoire 32 K exlerne : 
800F (valeur 1340F). Fabrice 
PERAUDEAU. 10 Square 
G.PAJOT 85300 CHALLANS 

VENDS TI99 avec modules 
(basic etendu. mini memoire, 
gestion familiale. parsec, Tl in- 
vaders) + joysticks + cable cas- 
sette + cable Tl pour moniteur 
+ livres 

(Conduite du TI99 (Willard). Pro- 
blemes et solutions en basic 
(Levy). Pratique du Tl (edition 
Radio), initiation au language 
assembleur du T199) Le tout: 
12500 FB ou 2000 F Raymond 
BRASSEUR, 124 rue de la sta- 
tion 7078 LE ROEULX BELGI- 
QUE Tel: 064 66 37 02. 

VENDS TI99 4A (12 82) - 5 
modules (basic etendu, Parsec, 
Echecs, Demon attack. Music 
maker) + 5 livres : "jeux et pro- 
grammes pour lordinateur fami- 
lial Texas Instruments" Tome 1 
en basic simple et tome 2 en 
basic etendu. Ta conduite du 
TI99/4A". "Pratique de lordina- 
teur familial Texas Instruments", 
"50 programmes TI994A Texas 
Instruments" + un double cable 
de liaison cassette. Le tout 
:2500F au lieu de 4000F. Tel 
:16 (7) 885 32 01. Demander 
Thierry. 

POUR TI99/4A VENDS module 
"Number Magie" 500 FB Tel 
:02 762 97 73 entre 17h et 
20h.BELGIQUE. 



GAG?... NON... PUB! 



VIDEOTROC 

VENTE - ECHANGE - DEPOT DE 

TOUT MATERIEL VIDEO ET MICRO- 

INFORMATIQUE - LOCATION DE JEUX 



NOS PRIX NEUFS ! 



MOMIT.iR C(H l.LUH . 24W F 
ATARI HIM) XL SECAM : I 700 F 
III DISOLtT! ES NASHUA «.i / 
AMSTRAD 

+ momirm toulrur :44WF 
+ monileur moiiorhmme : 2 WW 
Jm air* QUICK SHOT II I20F 
SPFXTRVM* . IMM 



LECTEUR DISQUF.TTFS + I jeu : 2 
Moniirur Ecrm Ambrv : fSIl F 
\ISXC4NONV20:2WOF 
Imprmamr BROTHER , i onto* : 1 
ORIC AIMOS ISRtU 
CONSOLE COLECO CBS : VWIF 
i BM64FAL t Ijeu 24WI 
( WWW t'eriiri t I Jeu .'*''«/ 



OUVERT DU MARDI AU SAMEDI DE 10 H A 19 H 00 

HV bis. me tic Cliairiiion 75(112 PARIS 

tH.:34Zl8.34 

metro : garr tit Lyon. Lrtiru Rollin 



VISMO 

Vente informatique service micro ordinateurs 

ORIC, SINCLAIR, AMSTRAD 

Moniteurs couleur et N/B. 

Tous peripheriques 

ASSEMBLEUR MONAMS 
Recommande par Hebdogiciel 

84. bd Beaumarchais 7501 1 PARIS 

12. bd de Reuilly 75012 PARIS 

338.60.00 



VIDEO 107 INFORMATIQUE 

♦ ♦ ♦ ♦ ♦ 

PLACE DES FETES 
75019 PARIS 

SINCLAIR QL 5 490 F 

SPECTRUM + 1 900 F 

CBM64 + lect. K7 2 990 F 
ORIC ATM0S 1 690 F 

AMSTRAD VERT 2 990 F 

Kl. : 201.22.34 - 201.46.09 



LES BOUTIQUES DES 
BRANCHES CABLES 



TOUS LES LOGICIELS FROM USA 
pour ATARI CMB 64, APPLE, 
COLECO. 

117 avenue de Villiers 75017 PARIS 

766.1L77 
163 avenue du Maine 75014 PARIS 

54L41.63 




,,-..: :- : *"?i--« ; ' ^* 



Hector/ 

Coffrel micro-loisirs 



hector/ 

Coffrel Loisirs-Ptus 



Mkro Ifr K dvec Micro 48 K dvec 

- rl.i-.ii et monileur intpnm H.isn III inlerne 

* 3 progrjmmrs ^4 2*M1 F ' ' P ro K Mmme * 4 OU()i 

+ 1 poifjntri + 2 livre* _ +2 poigntcs + 1 livre 

1.990' 3.990' 

Port el ' Port et 

.■nili.ill.u;i' .'D miv ISO 1 embjlbgcen mis 150' 

I ).m\ \a limile ilcs stocks disponibles 



40, rue de la republique 
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OUAFiOUAF! 
OUAF! 

festival du film d'/tumoitr, 

CHAMROUSSE 85. 



Alors voila. ca fait 10 ans 
maintenan! que y a des ptits 
ngotos qui samusent a faire 
un Festival du Film d'HHHHu- 
mour a Chamrousse, a 30 km 
de Grenoble Cette annee. 
c'etait du 11 au 16 mars Bon- 
jour le ski. les gomesses. la 
bronzette et le whisky, et par 
hasard des films qui trainent 
dans une salle de pro/o qui 
date de Mathusalem ou du 
Apple 1. au choix 
On est amve comme des frai- 
ses. Pidouzzz et moi. Clou, 
sympas. cools, avec tout I'ma- 
tos dans la valise, comme de 
bons VRPs de IHHHHebdo 
qu'on est Apres s'etre cogne 
12 longs-me'trages et 11 
courts, j'vous dis pas comme 
on avail les yeux en choux- 
Hour M'enfin yen avail 
qu'etaient franchement biens. 
et d'autres. euh... entin bon 
vous pigez De toutes mame- 
res. nous etions la en consom- 
mateurs et quand le verdict 
final est tombe. on avail qua 
la fermer el applaudir Bon le 
via c palmares 




Grand Pnx du Film d'Humour 
THE MISSIONARY de Richard 
LONCRAINE et Michael PALIN 
(des Monty Python) GB 
Ca c'est sur que pour I'hu- 
mour. c'est lui qui remporte la 
palme. mats avouons que les 
ceusses qu'apprecient pas trop 
t'humour bhtiche a la sauce a 
la menthe avec un nuage de 
lait. eh ben y risque d'etre 
decus. En tous cas. nous on 
aime et on est hachte d'accord 
avec eux. hein Axx ? 




Prix de la Critique: VRCHNI 
PRCHNI (LE VOLEUR DE 
PRAGUE) de Ladislav SMOL- 
JAK TCH 

Ah ben ouais. evidemment. 
que sil I aval! pas eu c'est quit 
aurait eu le Grand Prix Dail- 
leurs. c'est lui qui lavait (il a 
ete pro/ete le 12 au matin) /us- 
qua la pro/o du vainqueur. le 
15 au soir. La aussi. benedic- 
tion HHHHebdogicielienne 




Pnx du Public HEAVEN HELP 
US (LES ENFANTS DE 
COEUR ?) de Michael DIN- 
NER. USA Dites. vous voulez 
vraiment qu'on vous dise la 
meme chose a chaque fois. ou 
bien on arrets les frais ici 7 
Parce que si vous y tenez. ben 
nous on continue, hem Ca 
nous derange pas trop Allez. 
on va quand meme dire qu'ya 
un film tele dAntenne 2. 
MAESTRO, qu aurait aussi 
bien pu le meriter 




EZS 




box office 



edito 



Ca y est on est rev nu d'nos 
vacances a Chamrousse avec 
Pidduzzz On sen est mis 
plein les mrrettes dimages (3 
longs et 3 courts metrages par 
jour) et de neige Non. en fait 
c'est des bobards on etait pas 
en vacances. on a basse, pour 
vous les p tits amis. Nous, au 
moins, on va chercher lintor- 
mation a la base, dans ies 
hauteurs Cette semaine on 
vous donnera notre avis sur le 
palmares du Festival et la 
s'maine prochaine des films 
qui sont pas dedans, et qui 



I'atiraient peut-etre mente. 
Sinon en c'qui concerne les 
films de la semaine. ben vu 
qu'ya ("festival, jai pas eu 
assez de place pour lout mel- 
tre. alors comme d'habilude ca 
se chevauchera sur 2 semai- 
nes. 

LES SPECIAUSTES est bien 
done vous pouvez oublier le 
prejuge defavorable du a la 
pub. LA RIVIERE, encore un 
film agncole ricain. mais sur 
tout LA NUIT PORTE-JARRE 
TELLES. alors la super film 
francais C'esl pas BRAZIL, 
que vous avez vu bien en 
tendu. mais c'est quand meme 
hachement bien. Vu ? 



IIS SPECIALISTES 

de Patrice LECONTE 




Avec Gerard LANVIN. Ber- 
nard GIRAUDEAU et Chris- 
tiane JEAN. 1H40 . Fr. 



Mega-campagne d'affichage 
nationals (vous avez du r'mar- 
quer). 62 salles PARIS. 480 
copies tiroes et louees Dans 
la serie 'nous aussi on peut 
faire du gigantesque" void... 
LES SPECIALISTES. 
Si vous etes passes a cdte de 
cette campagne de pub, c'est 
ou parce que vous rev'nez 
dun voyage de 3 ans au Ba- 
louchistan Infeneur a droits 
apres la pharmacie. ou que 
vous etes en passe de devemr 
le pfochain Einstein de lordi- 
nateur et que vous ne levez 
pas le nez de votre becane Et 
encore la /e limits les possibili- 
tes. de toutes manieres. doit 
pas y en avoir beaucoup d'au- 
tres. ah si. si vous causez pas 
I'trancois. z'aurez du mal a tout 
comprendre (less specha- 
listssss. comme vous voyez ca 
change du tout au tout en An- 
glich) 

Pour sur. vous vous demandez 
pourquoi tout ce tapage autour 
du film, non ? Eh ben disons 
qu'une des raisons. c'est que 
c'est un film "Christian Fech- 
ner~. la meme boite de produc' 
que "Marche a L'Ombre". plus 
d' 1.250.000 entrees Pans en 
20 semames. pas mal Alors 
les mecs y ssont dit 
"1 Lanvin ( Blanc (dialogues 
du film) = $ S $ S 

2 Giraudeau - $ $ $ $ 

3 Histoire de casse de haute 
voltige, genre "Melodie en 
sous-sol" ou "Topkapi" ---$$$ 
$ 

Si avec tout ca on arrive pas a 
faire de la thune. c'est qu'on 
est vraiment des noeuds. mais 
puisquen sait jamais c'qui 
s passe dans la tele des gens, 
on va les arroser de pub. et 
comme ca its courront tous le 
voir, comme pour Marche a 
l Ombre Sans compter que sur 



ce film on avait pas fait une 
campagne de pub particuliere. 
done si on en avail fait, on au- 
rait cerlainement gagne encore 
plus de tnc " 

Ca vous degoute ces calculs 7 
Faut pas. apres tout le cinema 
c'est une histoire de gros sous. 
12 millions de Francs lourds. 
en moyenne pour (aire un film 
Ce tric-la. on le depense ni 
pour les beaux yeux du public, 
ni au nom de I'M. 
Chnstian Fechner est un 
homme d'argent. Mais c'est 
aussi un homme qui aime le 
cinema, sinon on ne lui aurait 
jamais confix la direction de 
Gaumont quit vient de quitter 
Moralite. Marche a I'Ombre est 
un ires bon divertissement, et 
LES SPECIALISTES aussi. Ah 
entin j'vous cause du film lui- 
m&me 

Je sais bien que ce genre de 
debut avec moi laisse plutdi 
presager un mauvais film, eh 
ben la. non ' 

C'esr super I Franchement. 
avec toute la pub qui nous 
mettaient sur le dos. j'avais 
des doutes. Pourtant je savais 
bien que Giraudeau et Lanvin 
elaient de bons acteurs et vu 
quits ont le vent en poupe. 
quits naccepteraient pas nim- 
porte quel script, mais quand 
meme Eh ben tout laux le 
pere CLOU (just call me Alice 
90) ' Si /ai cite plus haul "Me- 
lodie en Sous-sol'' et Topkapi' 
c'est pas pour des prunes, ou 
des cacahouetes (en vente 
dans cette salle). parce que 
Thistoire est similaire. 2 dete- 
nus en cavale qui decident de 
faire un casse "impossible" 
Mais impossible nest pas fran- 
cais ' (Mais ou vais-je chercher 
tout ca ') car ce sont des spe- 
ciahstes. cong I Faut voir Lan- 
vin tripatouiHer un micro pour 
foutre en lair le systeme de 
secunte. epatant f 
Voile, pour les pansiens et 
consors je signale quit passe 
au Kinopanorama 
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SAC DE NCEUDS 

de Josiane BALASKO 




Avec Isabelle HUPPERT, Jo- 
siane BALASKO (comme la 
grotte) et Farid CHOPEL et 
puis ya aussi COLUCHE 
qu'arrete pas de faire des 
"participations amicales' 

dans plein de films ces 
temps-ci. 1H27. Fr. 



Si y en a qui trouvent qu'on voit 
trop la mere Huppert sur les 
ecrans. y zonl qua surer et pas 
nous faire chier Non mais < Bon. 
mainienant que les geneurs sont 
partis et que nous sommes entre 
gens de bonne compagnie au bou- 
Ul 

Isabelle Huppert en comique. epa- 
tant. non 7 Si. si j'vous assure 
die a un role comique. Elle est la 
femme dun flic, allumeuse 



comme pas deux, et en plus elle 
sen rend pas compte. la salope ' 
Balasko. elle qui a fail la prouesse 
d'eenre. de realiser et de jouer 
est la voisme du dsous qu'a lou- 
che le fond depuis deia pas mal 
de temps et qui essaie de se sui- 
cider El pan via Huppert qui de- 
boule poursuivie par son man 
beune comme un p tit LU. y 
s'loutenl sur la gueule. et alors 
qu isabelle nettoyait son couteau 
de cuisine a depecer les orang-ou- 
tangs, le coup part et elle laisse le 
mari sul'carreau, dur ' Que 
faire ? Et les v la qui s'tirent 
toutes les deux comme des gran- 
des. en cavale comme dans les 
films, a braquer des mecs avec le 
timgue du flic Hop (hip toutes 
les ireres et tous les soeurs !) 
dies recupereni Chopel. evade 
contre son gie qui vent a tout prix 
retoumer en laule. Et pis comme 
la maison poulaga lui fait aucun 
credit, y s'barre avec les gonzes- 
ses Ca ce nest que le debut du 
film c'est vous dire si y a du 
mouvemenl ! 

Generalerncnl quand j'raconte 
Thistoire du film c'est que ca ma 
plu. vous savez done a quoi vous 
en t'nir, hein ? 

Avanl d'partir. un true ngolo c'est 
qu'ya trois fins dans le film, eton- 
nant, non ? 



Pnx de la Meilleure Image 
(comprenez par la "photogra- 
phic", quest-ce quon fait pas 
pour etre snob >) BUDDY 
BUDDY de Billy WILDER 
USA 

La. en revanche, on achete 
pas Si c'est pour faire plaisir a 
WILDER quits lui ont donne. 
franchement il en avail pas be- 
som WILDER. si vous 
connaissez pas. test que vrai- 
ment vous sortez jamais apres 
la reunion du Microtel. ou que 
vous neles lou/ours pas arri- 
ves a depasser le 132 erne ni- 
veau de LODE RUNNER 
Cest lui qua tail CERTAINS 
LAjMENT CHAUD LA GAR 




LA NUIT PORTE-JARRETELLES 

de I iminit- THEVENET 

Ach < Paris, ies bedides 
vemmes > Bigalle ! Rue Zaint- 
Denisss ! Le Bois de Boulo- 
gne • Frauleln, vous danzerez 
bien avec boi zette derntere 
waltz I! 

Alors y s'baladenl dans les 
bars a strip-tease, elle s' achete 
une guepiere dans un sex- 
shop, etc... Et Virgmie THEVE- 
NET nous raconte ca avec une 
desinvolture qui laisse pantois 
C'est dun cool ! Mais cooool. 
man ! 

Jamais (e n'avais vu un film oil 
on parte de facon si naturelle 
decul. 

SEX IS GOOD FOR YOU ! 
Faire un premier film pared et 
en tenant un tel discours tient 
de la gageure. merde. c'est 
vraiment bien ■ On pourra dire 
tout ce qu'on veut sur la tech- 
nique, mais on sen foul, parce 
que le fond est tenement rigolo 
et nouveau (rare) que la forme, 
eh ben vous savez c'que j'en 
faif 

En tout cas voila qui mertra 
plus dun macho dans la 
douna. c'est la gonzesse qui 
tire toutes les ficeiies de 
laventure et le mec il est toul 
gentil. tout mignon. meme qu il 
attendrii la gonzesse qui. man- 
que de pot. en tombe amou- 
reuse a la fin. 

Si certains d'entre vous s'em- 
merdent pendant la scene fi- 
nale, partez pas : le mot de la 
fin est eng'zneu ! 



Avec Jezabel CARPI, Ariel 
GENET, Caroline LOEB et 
Arielle D0M8ASLE. 1H25 . 
Fr. 



Ah ben ca c'est un dim qui fait 
plaisir a voir Si j'avais ose 
(aire un film de cet acatxt. (e 
n'aurais certainemenl pas fail 
mi eux. bien au contraire 
Le titre est epatant. trouvez 
pas ? Cest toujours difficile de 
trouver un titre pour un film. 
On peut passer des semames 
dans les maisons de pro- 
duc distribution a en chercher 
un La. je n'sais pas qui a eu 
cette idee tantastique. mais 
masseu. ca men Douche un 
sacre coin On ne pouvait pas 
choisir mieux 

Tout le film est dans le titre, 
c'est une sorte d'initiahon au 
sexe dun jeune mec de 17 
balais par une nana de 23 ans 
Vous gourrez pas. Cest te 
jeune type qui est mine au 
cours de ce voyage nocturne 
dans le "Gai Paris" 




CONNIERE. 7 ANS DE RE- 
FLEXION SPECIALE DER- 
NIERE et cest pas tint. Bret, 
des super-films, mais celui-la il 
aurait peut-etre pu sabstenir 
Oh cest pas nut comme film. 
mais encore une fois. les Ri- 
cams namvenl pas a mettre 
en scene des histoires francai- 
ses. thistoire est de Francis 
VEBER (voir le planlage de 
Gene WILDER avec LA FILLE 
EN ROUGE, dapres UN ELE- 
PHANT CA TROMPE ENOR- 
MEMENT) 



Pnx du Court Metrage. An- 
tenne 2 LA FIEVRE MONTE 
A CASTELNAU de Patrice 
ROLLET Fr. 

Bof. la qualite des courts en 
general etait tres bonne, a part 
un mauvais. mats celui-la. 
c etait pas I'meilleur Juste 
bien Le scenar est complete- 
ment classique alors que tous 
les autres avaient une histoire 
originate Cest un peu dom- 
mage 



Bon comme on a plus de 
place, on vous parlera des 
autres la s'maine ptochame 
Surtout des courts, parce que 
cetaienl vraiment eux qui me- 
ntaient le deplacement On 
vous causera aussi de 
BIANCA. qui a notre avis 
navait pas sa place dans ce 
Festival, mats qui est un petit 
bijou, un nouveau cmeaste 
ntal. ca tail tou/ours plaisir 
Salut CLOU > PIDOUZZZ 



LA RIVIERE 

de Mark RYDELL 




GIBSON et Scott GLENN. 
2H02 . USA. 



Et encore un film de campa- 
gne ncam. Et dire que le 
rea de ce film croyait faire un 
true different en eenvant son 
histoire de fermiers ' Vaste fh 
golade '. Enfin y sont bien gen- 
tils ces Ricains. non ? Et en- 
core, jai pas encore vu le 
troisieme film du genre 
COUNTRY. avec Jessica 
LANGE et Sam SHEPPARD 
Oeja. Mel Gibson et S'ssy 
Spacek ca en jette pas mat 
L'histoire c'est pratiquement la 
m4me pour tous ces films 
nos heros fermiers arnveront- 
ils a garder cette terre de leurs 
ancGtres que tout te monde es- 
saie de leur racheter ? Dans 
Les Saisons Du Coeur. c'etait 
du colon, ici c'est du mais 
Oh yeah \ Com pickm' blues ' 
Alors quest-ce que vous vou- 
lez que j'vous dise. hein ? Que 
c'est bien ? Que c'est le cou- 
ple de I annee. depuis qu'An- 
thony et Cleopatre. non. ess- 
cusez-moi, Stephanie cest fini. 
comme Capri ? OK. d'accord, 
/vous I'dis. C'est bien fail, on 
s'emmerde pas a 100 sous de 
Theure. On passe un moment 
agreable a voir Sissy, royaie. 
se faire broyer le bras par une 
vilame machine agncole qui 
n etait pas bien apprrvgisee, oy 
A*e/ (toi de c'qui t'regarde) se 
faire foutre sur la gueule par 
des mecs qui laccusent de 
voter leur laff. Enfin. un film 
cool. quoi. 
Quand meme jai une grosse. 
ma'- alors Ires grosse critique 
a faire a ce film c'est que I 
rea s'est amuse a montrer les 
grOvistes. quels quits soient. 
comme des mecs qu'ont tort, 
puisque Gibson se fait taper 
dessus par des grevistes alors 
que lui bosse dans leur usme 
occupee. c'esl bien une idee 
de patron, ca. de faire tourner 
la boite coute que coute avec 
des "jaunes" sil le faut Et ca 
c'est une idee quelle me plait 
pas du tout 

C'est vraiment ncam comme 
point de vue. ca II faut travail- 
ler pour meriter quekjue chose 
Non pas que /e pense foncie- 
rement le contraire, mats entin 
j'estime que tout le monde a le 
droit de dire c'quil pense. 
meme si! est syndicaliste. noir 
ou troglodyte des vallees du 
Yemem du Sud (cherchez pas 
dans votre encyclopedie en 
75474 volumes, c'est /uste un 
delire) Moralite. si vous etes 
payes pour bosser. vous avez 
pas a demander de meilleures 
conditions de travail Bosse et 
tats-toi Un peu douteux. vous 
trouvez pas ? Meme si vous 
ne travaitlez pas. vous devnez 
y reflechir Bien sur au canard, 
on est tres proche dies condi- 
tions de travail ideates, mats 
meme chez nous il y a des re- 
vendications massouvtes. du 
genre dejeuner qualite 

Maxim's, danseuses nues et 
spectacles distrayants pen- 
dant les heures de travail, 
magnetoscope a disposition. 
Rolls pour tous les redacteurs 
et eau et gaz a tous 
etages Comme quoi nous ne 
sommes pas exempts de ces 
revendications hautement exis- 
tentialistes nous aussi 
Bon i'arrete de deconner. C'est 
pas mal quand meme. allez 
De toutes manieres. chuis trop 
bourre pour dire autre chose 
sur ce film. 
PS Sachez que Sissy Spacek 
(cest encore mouille) vit reslle- 
ment dans une fenne avec son 
man et son gosse. c'qui fait 
que le changement d ambiance 
n a pas ete trop dur pour elle. 



teloche 



EDITO 



Ames sensibles. cette semame 
vous pouvez vous coucher tot 
It n'y a quasiment nen pour 
vous. Enlre une succession de 
WESTERNS sanglants. 

POLARS violents. ESPIONS 
magouilleurs et autres INTEL- 
LOS-PSYCHOS obscurs. il ny 
a que BERTUCELLI qui sauve 
I'honneur. Oh vous ecraserez 
bien une petite larme pour la 
petite GIRARDOT et son can- 
cer du Mardi. mats la c'est dif- 
ferent, c est pour des bon sen- 
timents. Moral, ou presque 
Les autres vous etes gates 
Y'a pas a dire, il y en a pour 
lous les gouts VIOLENCE 
DEPRAVATION. ESCROOUE- 
RIES. SEXE (un lout petit 
peu). DROGUE. FANATISME. 
PEL IGIEUX. RA CISME. 

PROSTITUTION Quelle pa- 



lette. Ce serait-y que vous 
aimez ca pour qu'on vous en 
donne aulant ? Est-ce bien rai- 
sonnable ? 

Franchement. vous ne prefere- 
nez pas un Bambi. un Mary 
Popms. ou encore un petit 
Blanche neige 7 Pourtant. le 
romantisme. la poesie et les 
bons sentiments, ca c'est beau 
et pur. Honnete quoi. . Vous 
ne voulez vraiment pas 9 Vous 
optez defmitivemenl pour la 
crasse. la salopene et la me- 
chancete ? Qu'est-ce que vous 
avez raison. Parce qu'en plus 
ca fait des bons films. 
Moi ie vous le dis. LE VICE y'a 
que ca de vrai. Pour la peine 
vous me direz 3 Pates el 2 
Avers. 

PIE XII. 



EMPIRE DES SENS 
chaleur et poussiere 



Film de James Ivory (1963) 
avec Julie Christie, Shashi 
Kapoor et Christopher Caze- 
nove. 

Votre chef de bureau vous (ait 
chier. votre concierge vous tire 
la gueule. les traites de Canal 
+ s accumulent. la tete de 
Jean-Claude Bourret vous 
donne des boutons. bref la de- 
prime est au coin de la rue. 
Pas de panique. le remede est 
la Du reve. de {'evasion, de 
IEXO-TISME: llnde. Pas celle 
d'hier style Renoir (Le Fleuve) 
mais la vraie. letemelle. celle 
de grand papa avec les ele- 
phants enturbannes. les maha- 
ranis et le Grand Comae 

Anne. t /eune reporter a la BBC. 
pad en INDE a la recherche 
du passe dune de ses gran- 
des tantes, Olivia, ob/et dun 
scandale dans les annees 20 
Refaisant pas a pas le meme 
parcours que celui de son 
aieule. elle va revivre le passe 
au present, poussant lidentifi- 
cation jusqua ses extremes. 




dous (700 millions de . I abou- 
tiront a des marmots Mais que 
fait Le Pen ? 

Ce parcours mitiatique. geo- 
graphique et ethnographique. 
est mene avec intelligence et 
sensibilile. L evocation des 
riches heures de Tempire des 
Indes est un album d'images 
superbes. La confrontation 
entre Tunivers etrique. mesquin 
el ngide de la bourgeoisie co- 
lomale et le monde magique. 
mysteneux et fastueux des 
maharadjahs est un tel delice 
que j en salive encore. 
Diffusion le 27 a 23h 10 tur 



LA VIEILLE DAME ET L'ARGENT 
tueur de dames v 



Film de A MACKENDRIK 
(1955) avec Peter SELLERS 
et Alec GUINNESS. 

J'espere que ce film ne don- 
nera pas de mauvaises idees 
a cedams d'entre vous qui 
cherchez une chambre a louer. 
Void done une brave vieille 
dame, gentille. qui sennuie un 
peu dans sa grande maison 
vide depuis la mod de son 
man Quelles solutions s of- 
frent a elle 7 Changer de mai- 
son, mais pour une femme 
d'un cedam age c'est pas si 
evident (de sagesse) Alors 
reste la derniere solution: louer 
une de ses chambre a des 
gens sociables, aimables (el 
leur orchestre). genre vous 
quoi -enfin / espere-. Mais 
quand on veut etre gentil. on 
se fait generalement avoir 
C'est le cas de notre petite 
grand mere. En effet les 
jeunes quelle acueille ne sonl 
que d'immondes voyous 
(beurk I) qui complotent un 
hold up. Et le coup reussi. 
vous savez ce quits deman- 
dent a la vieille ? Je vous le 
donne en mille Cest elle qui 
va alter recuperer la matte qui 
contient largent a la consigne 




"Vous pouvez continuer, 
i 'adore le rock" 

Mais futee la vieille. elle pige 
tres vite la magouille. et elle 
decide de meltre le magot 
sous cle et d'aller prevenir la 
police. Les mecs y font la 
gueule et lis declarent dun 
commun accord IL FAUT L E- 
LIMt-NER Mais ils sont choux 
ces voyous. yen a pas un qui 
lui veut du mal a la grand 
mere Alors ces cons ils se ti- 
renl et ils laissent largent a la 
vieille. qui dit merci et qui se 
bane. Vous avez vu le coup. 
cette vieille bonne femme qui 
se fait du trie sur le dos des 
leunes qui crevent la taim. 
Vraiment cest honteux ' Moi /e 
vous le dis. les vieux faudrait 
les tuer a la naissance. 
Diffusion le 26 a 20h35 sur 
A2. 



CAP CANAILLE 



Un film de J-H ROGER et J. 
BERTO (1962) avec J. Berto. 
J-C. Srialy. B. Lafont et R. 
Bohrlnger. 

Ce film qui se passe dans le 
sud (Marseille), sen! bon la 
Provence II esl construct sur la 
recede de la bouillabaisse 
seton Tanle Augustine Mais 
qu'esl-ce quelle cuisine mal la 



lante. Cest vrai. elle mel trop 
de tout, trop de numeros de 
comediens, trop de seconds 
roles, trop dhistoires qui s'en- 
tremelent (mafia. drogue. 
meurtres .. ) Bref pourquoi taire 
simple quand on peul faire 
complique Au depart, il y avait 
tous les elements pour reussir 
le plat, mais les cuisiniers trop 
soucieux de bien (aire, ont ou- 
blie lassaisonnement Insipide 
quoi 
Diffusion le 25 sur FR3. 




Lundi 25 Mars 



20h30 C • - TOUT LE MONDE PEUT SE TROMPER 

(Merci pour le renseignement) 
20h35 FR3 ■" CAP CANAILLE , voir CURIOSITESl 
20h35 TF 1 : LE TRAIN SIFFLERA 3 FOIS (voir 

CURIOSITESl 
20h35 A2 : LE GRAND ECHIOUIER avec Patrick 

DUPOND. 
22h00 TF 1 : ETOtLES ET TOILES (Special WOeme) 
23h00 FH 3 .- THALASSA imagazine qui a le vent en 

poupe) 



Mardi 26 Mars 


20h30 C + 


LA CHEVRE (sans Beeelmondo) 


20h35 FR 3 


Or FRANCOISE GAILLAND (Girardol 




lor never) 


20h35 TF 1 


ENIGMES DU BOUT DU MONDE 


20h35 A2 


TUEURS DE DAMES (voir article)!} 


2lh35 TF1 


LA PASSION DE LA VIE If 4 


22h05 C ♦ 


RONDE DE NUIT Ivoir CURIOSITESl 


22h25 TF 1 


TINTAMARTS: Special erolique 7 


Mercredi 27 Mars 


20h30 TF 1 


DALLAS (Le chateauvallon americam) 


20H36 FR 3 


LA CINOUIEME VICTIME (Intrigue a 




Vancouver) 


20h35 A2 


LA MER DU TEMPS PERDU (llanene 




exolique) 


21h00 C + 


STUNT MAN (la guerre mene a tout) 


21h30 TF 1 


ROMANS DAMOUR reportages 


22ti00 A2 


ENOUETE SUR UNE PAROLE DON- 




NEE (voir article) O 


221,35 FR 3 


LES MEDICALES Maladies de la vi- 


22h35 TF 1 


COTE D'AMOUR (La bourse qui rocket 


23M0 C + 


CHALEUR ET POUSSIERE (voir arti- 




cle) • 


Jeudi 28 Mars 


20h35 C + 


■ LA VICTIME (non a la vivisection) 


20H35 FR 3 


• rvtl It (dramatiquedu mai passant/ 


20H35 TF 1 


■ AU NOM DE TOUS LES MIENS W 8 


A2 


■ LE MUR DE LA MAINE if 2 (ktl-kil 
TF1) 

■ INFOVISION (magazine dactualilesl 


21h30 TF1 


21h35 A2 


■ CARTE DE PRESSE : Mount a lond la 




caisse 


21h45 C + 


■ LES DESIRS DE MELODY IN LOVE 




(sexsssses. lesssses. cuissssses) 


Vondredi 29 Mars 


20H35 A2 


CHATEAUVALLON 


20h35 FR 3 


VENDREDI 


20h35 TF 1 


LE JEU DE LA VERITE avec A Girar- 
dot 
LE DEUXIEME SOUFFLE (1966). super- 


21h00 C + 




lilm (polar) de J-P Melville avec L 




Ventura. P Meunsse et R. Pellegnn. 


21h35 A2 


APOSTROPHES (reussir au lemmin) 


21h50 TF 1 


DAMOUR ETDEAU CHAUDE 


22h10 FR3 


DECIBELS DE NUIT (Rock it) 


23h00 A2 


HAUTE PEGRE (voir arttcle)A 


23M5 C + 


LES FILLES DE GRENOBLE (ne valenl 




pas celles de mon pays) 


Samedi 30 Mars 


20h35 TF 1 


LE TUEUR DU DIMANCHE 


20h35 A2 


CHAMPS ELYSEES tmichous paradise) 


20h3S FR 3 


DISNEY CHANNEL 


22h15 TF1 


DROIT DE REPONSE 


221,15 A2 


LES ENFANTS DU ROCK (Sex Ma- 




chine) 


22M5 FR3 


DYNASTIE 


Din 


anche 31 Mars 



20h35 A2 : LE GRAND RAID (cest mou tout ca) 
20h35 TF 1 : LES 7 MERCENAIRES 



ARCHITECTURE ET GEOGRAPHIE 

SACREE 

FEMMES DE PERSONNE (1983). film 

(comedie) de C Frank avec J-L Tnnti- 

gnant. M Keller. C Cellier. F Cottencon 

et P Leotard 

AU DELA DU CHAGRIN ET DE LA 

DOULEUR ipreparez vos mouchoirs) 

LAVENTURE DE Mme MUIR (voir adi- 

clel-k 

DEMENTIA 13 (1963), film (suspense) 

de F. F. Coppola 



I E TRAIN SIEFLERA 3 FOIS 

Film de Fred Zinnemann 
(1952) avec Gary Cooper 
Cette semame. on se rend 
compte que I innovation au ni- 
veau du western se fait rare 
(manque de moyens oblige) 
ca a beau etre un classique 
du genre, apres une vingtame 
de diffusions on commence a 
se lasser , Enfin, pour ceun 
d'entre vous qui ne lont pas 
encore vu. ietez vous dessus 
c'est excellent 

Diffusion le 25 a 20h35 sur 
TF1. 




mmmteCOCkCmmm 

LA LETTRE PERDUE 
enquete sur une parole donnee 



Telefilm de P. Koralnik avec 
Francois Perier et Bernard 

Halter 

A la suite d un entretien avec 
Ranjard. un escroc brillanl 
(grace a JJItra-Bnte). J Alva- 
rez, contrbleur des impots. est 
pris dun raptus (famitle des 
virus psy qui entrem sans trap- 
per). Lequel le conduit a Lyon 
en transe, en nage mais en 
train, oil il se terre (arable) 
dans un Iron a rat pendant 
deux semames La vision de 
son portrait a la une des jour- 
naux le tire ailleurs de ses vi- 
sions. Affole par son comporte- 
ment, il entreprend une 
psychanalyse avec le grand 
docteur Legrand. 
Affale sur un divan, il plonge 
dans son passe (splash), ra- 
conte les traumatismes de son 
enfance (il n a pas connu Pam- 
pers) et entrevoit la vente Al- 
lelouta, il est sauve. Le fonde- 
ment de sa personnalite etail 
vicie a la base, il s identifiail au 
Christ. Grace a Dieu (et Freud 
est son prophete) il retrouve la 
paix. Amen. 




Bon sang mais c est bien 
sur... 

C'est du tres bon telefilm, 
sobre, austere, magistralement 
interprete par 2 comediens au 
summum de leur art. Le see- 
nano est soiide. original, le 
personnage mteressant, le 
cheminement du travail psy- 
chanalytique credible. 
Alors ou est le defaut ? Dans 
I'exces de qualites La perfec- 
tion de cette tiction provoque 
une identification intense avec 
le heros. d'ou une sensation 
de malaise permanent, de re- 
mise en cause personnelle. 
Bourdon garanti, a consommer 
au bourbon soda 
Diffusion le 27 a 22h00 sur 
A2. 



LESARNAQUES j/A^ 
haute pegre A* —^ ~ -^ := * 



Film de E.LUBITSCH (1932) 

Ouand vous mettez plusieurs 
requins dans le meme bassin. 
que vous leurs donnez a man- 
ger pour un seul. qu'esl-ce qui 
se passe ? Ils se lapent sur la 
gueule, ca va de sol Imaginez 
de plus, plusieurs requins fe- 
melles enfermees avec un seul 
male a la saison des amours 
Bonjour le carnage. Eh bien ce 
film, c'est pared. 
Gaston et Lily torment un cou- 
ple de voleurs de grande 
classe (tous risques) Apres 
avoir (ait de tres bonnes affai- 
res a Venise, ils arrivent a 
Pans. Gaston se fait engager 
comme secretaire par une mil- 
iiafdairs. Mme Coiet. propria 

taire dune marque de par- 
turns, dans lespoir de la 
devaliser. Mais bientot une in- 
trigue amoureuse se noue 
entre eux, Gaston, partage 
entre ses 2 croqueuses de 
diams. ne sail plus oil dormer 
de la tete (une femme ca va. 
deux femmes bonjour les 
degats). 



M 



"J'ai un cil dans I'oeil" 

Ce film, plus qu'une etude Dar- 
winienne du cornportement de 
Ihomme. est une comedie 
amencaine du meilleur cru (le 
champagne est millesime). On 
peut lappeller comedie legere. 
comedie policiere, ou comedie 
vaudeville, il nen resle qu'une 
chose, c'est une COMEDIE . 
Rebondissements en tous 
genres, quiproquos rocambo- 
croquignolesques, interpreta- 
tions superbes. le tout est 
mene tambour battant. tel un 
match de ping pong passe en 
acceiere. Un petit joyau. 
Diffusion le 29 a 23hOO sur 
A2. 



MDnMUTJR — 

\ & Vaventure de Mme Muir it 



Film de J. L. Mankiewicz 
(1947) avec Gene Tierney, 
Rex Harrison et Georges 
Sanders. 

Pellicule inclassable. Un classi- 
que a ranger quelque part 
enlre MA FEMME EST UNE 
SORCIERE de Rene Clair et 
PETER IBETTSON d'Henri 
Hathaway Pour les non-cine- 
philes je precise, il s'agit dune 
categorie aujourd'hui disparue: 
la Comedie Fantastique. You 
said WOT ? Cest un genre qui 
associe les alouts propres de 
la comedie (mecanique du nre. 
personnage type, reparties cm- 
glantes. ..) el les qualites origi- 
nates du fantastique (magie. 
surrealisme. non-sens...). 
Madame MUIR. jeune veuve 
ires sedutsante (Gene Tier- 
ney). vit retiree au bord de la 
mer, avec sa petite title et leur 
domestiquV Le fantbme du ca- 
pilaine Gregg, ancien propne- 
taire de la maison hanle les 




lieux ou Mme Muir s est inslal- 
lee. Une idylle sebauche entre 
la nouvelle locataire el le loup 
de mer revenu de lau-deia 
(Moi Jane, vous Gregg) 
Pur chef-d'oeuvre Tendre. iro- 
nique. delicat. deconcertant a 
limage de la vedette principale 
(Moi j'aime. vous Tierney) 
Diffusion le 31 a 22h3u sur 
FR3. 



RONDE DE NUIT 



Film de J-C. Missaian avec 
Gerard Lanvin, Eddy Mitchell 
et Lisette Malidor 

Pale copie de Starsky et 
Hutch. A eviter malgre des ac- 
leurs sympalhiques Hebdogi- 
ciel vous en donne louiours 
plus, avec cette photo vous 
avez vu lessentiel du film 
(gain: 90 mn avec votre jeu fa- 
von). 
Diffusion le 26 a 22h05 sur 




T es pas bavard. mon Diction 



C'est nouveau, pa went de sortir 



POURQUOI PAS LE MERITE AGRICOLE ? 



Vismo lance la collection dete 
"Visiog" sous la forme dun 
nouveau magasin situe Ires 
exactement a I'endroii du pre- 
mier (Bd de Reuilly a Paris), la 
partie ordinateurs restant Bd 
Beaumarchais On assislera 
entre aulres a la presentation 



de nouveaux logiciels, even- 
tuellement a leur vente. avec 



une gamme lort etendue puis- 
qu'au moins 50 cassettes par 



ordmateur seronl exposees 
Ongmalite le magasin entier 
sera consacre au soft Mais 
lout ceci ne serait qu une ma- 
noeuvre ialoux d'Yves St Lau- 
rent, il cher che en fait a se 
faire attribuer la legion d'hon- 
neur Ah ah. decouvert 



LE SALON DE L IMAGE ETDU SON 



de PARIS, avec PLEIN DEX- 
POSANTS. 1985. 1h30 si vous 
etes resistants. 

Bonjour, c'est CLOU Comme 
j'ai pas assez de place dans la 
page cinoche. je viens faire 
une incursion dans le domaine 
de mes petits camarades Sur- 
tout pour vous causer du dim 
dont a propos duquel que je 
vais: "Le Salon De L Image Et 
Du Son". Y a pas a dire, ca 
c'est du salon, madame 
Meme si on ne parle pas 
assez des mammas qui ra- 
masseni du colon, 01, et de 
moi 

Remarquez. moi j*y allais sur- 
tout pour la technique, paske 
je suis super branche. vous le 
savez. mais c'etait surtout le 
son que i ai vu. Meme Geor- 
ges Amstrad qui apparaissait 
dans un petit role exposait 
aussi des chaines hifi. 
A propos de lui. malez un peu 
la photo ci-dessous. ne distm- 
gue-l-on pas les mots "CPC 
664", sur ces superbes dis- 
kouettes 7 



Eh bien si, on les distingue, 
parfaitement. meme. Ne serait- 
ce pas le nom de la version 
avec un lecteur de disquettes 
mtegre ? Replique d' Amstrad 
(decidement Ires bon come- 
dien): "non, c'est le nom du 
464 dans certains pays' 
Bravo, Georges. 
L unique acteur (les acteurs. 
c'est des beeeetes) a prester 
(faire une prestation, accro- 
chez-vous a vos dicos. je de- 
colle) dans le seul domaine de 



Je voudrais pas incartader 
dans le domaine de mon ca- 
marade et cher collegue Bom- 
byx. mais il apparait dans le 
film sous I habile pseudonyme 
de "Albert Tehefun" Vous le 
reconnaitrez facilement. c'est 
celui qui est toujours avec Da- 
niel Thomson. 

Et attention en premiere par- 
tie, un super court-metrage, 
"ParigraprT. C'est un pti dessin 
anime (non, je ne ferais pas de 
jeu de mots) avec tout plein 





la micro, c'est Alain Commo- 
dore. Une presence formida- 
ble Chuis sympa avec lui 
paske | attends son prochain 
fitm, Ta revanche du 128". 
Vous etes pries de remarquer 
la presence pour la premiere 
fois a lecran de Farid Visto- 
phone, paske c'est un copain a 
moi. Si vous r'gardez bien len- 
luminure que je joins, vous 
verrez meme sa tete sur 
I'ecran. 



d images de synthese de la so- 
gitec, de la CCETT. de tout 
plein de boites qui se montent 
pour prendre le creneau d'as- 
saut. Mais c'est pas le meme 
film, et faut payer deux fois. 
Heureusement. vous m'connai- 
ssez. chuis entre par la sortie. 
Voila. Et les 4 autres parties 
du film ? Ben chais pas, j'con- 
naissais pas les acteurs. et 
puis c'etait en VO et ch'com- 
prends pas letranger. Oi. 



Suite de la page 1 

pendant 24 mois Le premier jour 
du 25eme mois. la pile au lithium 
qui alimente le bastringue pousse 
un 'Arrrrgh !' et passe du stade 
actif au stade Kapurt. Mais vous 
pouvez faire quelrjues DELETE 
avant 

Cinquieme interet: ca ne coule que 
590 francs 

Sixieme interet Ca existe ni sur 
Thomson ni sur Amstrad C'est 
meme comme qui dirait une exclu- 
sive presque complement exclu- 
sive si Canon I'avart pas fait avant 
mais comme le X07 de Canon nest 
pas un ordinateur de table, alors 
voila quoi 



Centronics, un autre trou de rJernere 
prend en charge I incrustation video 
et le dernier petit trou de derriere se 
charge du telephone 
Avec les deux premiers connec- 
teurs. pas de probleme. vous 
connaissez: ca agite les bits des im- 
primantes L' incrustation video est 
moins connue puisqu'elle est desti 
nee a travailler en interactif avec 
des emissions de tele dont on a pas 
encore vu le debut du commence- 






le sais. c'est de tres mauvais gout 

je se moquer des sourdingues 
Surtout qu'ils peuvent lire I'HHH- 
Hebdo puisqu'ils ne sont pas aveu- 
gles Jespere qu'ils sont aussi 
muets. comme ca ils ne pourront 



Huit milliards neul cent quarante et 
un mille millions sept cent cm- 
quanle sept mille six cent trentieme 
interet Exelvision va en vendre un 
paquet. va placer le trie gagne el va 
recuperet des interets a (aire sourire 
un banquier en fin de carrier? 



COMMUNICATION EN VEUX- 
TU ? EN VOILA ' 

Cette boite-la se rentre aussi dans 
un trou de derriere. mais pas le 
trou de derriere de tout a rheure. 
un autre trou de derriere plus large 
a cote du premier petit trou de der- 
riere Et elie possede elle-meme 
quatre trous de derriere: le premier 
trou de derriere soccupe de la 
norme RS 232 C. le deuxieme trou 
de derriere se charge de la norme 



ment En attendant, vous pouvez 
vous definir une lenetre de travail 
sur votre ecran et rega refer en 
meme temps Dallas ou Guy Lux Le 
dernier connecteur est le plus inte- 
ressant. c'est celui du modem qui 
vous ouvre les vraies partes de la 
communication inlormatique el leie- 
matiQue Le logiciel en cartouche 
qui est livre avec ce module trans- 
lorme. en plus. I'EXL 100 en Mini- 
tel avec des tonctions intelligentes 
telies qu'appel automatique de ser- 
veurs, copie d'ecrans ou sauve- 
garde de pages graphiques sur cas- 
sette, disquette ou Exelmemoire 
Genial ! Et les prix 7 Helas. au vu 
de telies performances il etait diffi- 
cile aux gens d'Exelvision de rester 
raisonnables. tres difficile quand un 
materiel equivalent chez la concur- 
rence coute plus de 5000 Irancs Et 
pourtant. ils I'ont fail ' Ils ont re- 
siste a la tentation de sen mettre 
plein les poches sur le dos de la 
nouveaute 1090 balles pa ne coute 
QUE 1090 balles ' Ce ne sont plus 
des Exelvisions que j'ai, ce sont des 
mirages, des elephants roses * 




pas gueuler ! Bon alors. ANTIOPE 
vous devez connaifre de temps en 
temps quelques emissions sont 
sous-titrees pout les mal-enten- 
dants C est marrant cette manie 
actuelle de ne plus appeler les 
choses par leur nom. on dit mal- 
entendants au lieu de sourds. 
homme de couleur au lieu de noir. 
pourquoi pas mal-comprenanl au 
lieu de cretin, mal-beau au lieu de 
laid, mal-coiffu au lieu de chauve 
ou mal-ieune au lieu de vieux ? Ces 
neologismes primaires sont proba- 
Wement crees par des mal-compre- 
nants qui cachent leur racisme la- 
tent et leur peur des handicaps 
derriere des fausses pudeurs qui 
creusent le fosse au lieu de le 
combler Bon. c est pas tout, ou en 
etais-je. ah oui. Antiope Alors le 
sous-titrage de quelques films et de 
quelques emissions ainsi que les 



N'entrez 

pas dans la boutique 

de jeux 



Games Workshop a devoile au 
public trois nouveaux titres. 
pas plus lard que recemment 
Les demonstrations se sent 
demulees sur Spectrum et 
Commodore, mais ils jurent 
leurs grands dieux que l Ams- 
trad et TApple ne devraienl pas 
sire oubhes 

Battle Cars ma convaincu 
d'etre un fou de la route tel 
Mad Max Vous partez au vo- 
lant de votre bagnole. mieux 
equipee que trots chars d'as- 
saut. pour d&foncer tout ce qui 
se trouve a portee de vos 
armes. Dans le style "je casse 
et je ngole". le produit vaut dix 
fois plus que n'importe quel jeu 




D Day s'adresse uniquement 
aux fondus de jeux de strate- 
gic: le debarquement allie en 
Normandie en 44 forme la toile 
de fond de ce logiciel. fort bien 
realise d'ailleurs. mais souf- 
frant d'inconv6nients irremedia- 
bies a mes yeux trop de para- 
metres sont incontrolables 
dans cette attaque et la Vitesse 
de jeu vous permet de boire 
votre cafe et de regarder la 
1616 sans que vous ratiez la 
moindre infime parcelle du jeu. 
Dommage ! 



Tower Of Despair sera le jeu 
de rdle (en solitaire) de la mat- 
son pour cette saison. Les gra- 
phismes sauvent de I'oubli ce 
logiciel sans analyse syntaxi- 
que (ce qui est fort gSnant. 
vous en conviendrez, pour un 
jeu ou tout passe par le voca- 
bulaire). 

Comme on dit par chez nous. 
Games Workshop est en pro- 
gres (les logiciels tentent d'etre 
originaux) mais peut mieux 
faire ' 



BERNOULLI STRIKES BACK 



General Automation World 
Trade For The Bubble Gum 
And The Basket Bail Little Lea- 
gue United In The Best Possi- 
ble Way Rock'N'Rofl Waow 
Waow (le vrai nom de la so- 
ciete ne comporte que 4 mots. 
elimmez les intnjs) commercia- 
lise en France un ingenieux 
dispositif permettant de sauve- 
garder 5 megaoctets sur une 
disquette de 5 pouces 1/4 pour 
le Macintosh Le temps dac- 
ces a la disquette est de 50 
millisecondes. ce qui est re- 
marquable, sinon unique pour 



linstanl Le prix est de plus de 
30.000 francs, ce qui Test 
moms. Le tout est en technolo- 
gie Bernoulli!, qui est un tres 
bon standard, mais malheureu- 
sement peu repandu. 




pages de texte qui sont diftusees 
dans la journee peuvent passer par 
un autre boitter tres semblable au 
precedent. II comprend les memes 
connexions serie. Centronics et in- 
crustation et le decodage d'Antiope 
au lieu du modem 990 francs au 
lieu des 1090 francs de tout a 
rheure. 



MAESTRO t 

On fiml en musique avec le dernier 
boitter. Exeldrums, boite a rythmes 
stereo digitale developpee en colla- 
boration avec Hohner Ca se bran- 
che encore une fois derriere .la 
console, ca balance terrible avec 17 
instruments de percussion ditfe- 
rents. 6 canaux simultanes. 16 
rythmes pre-programmes. 54 se- 
quences programmables et 8 pistes 
d enchainemenf de sequence 
Tzing ! 1090 francs 



J At OUBLIE L IMPRIMANTE 

Franchise, graphique. 80 colonnes 
memoire tampon 2 Ko 3500 
francs En plus il faut une interface. 
une de celles que nous venons de 
voir ou une plus simple avec serie 
et Centronics a 600 Irancs Cher 




CONCLUSION 

Ceci est la conclusion de I article 
car pour qu'un article soit digne du 
nom d article il lui faul une conclu- 
sion ■ 



Suite de la page 28 

Le bonhomme est un coriace. 
Je vous trace son portrait en 
deux mots pour que toutes les 
finesses du recit ne vous echap- 
pent pas. Tramolo a debute 
comme marchand de bouliers a 
Pekin dans les annees cin- 
quante. Grace a ce petit pecule 
il est revenu chez les Yankees 
oil il a monte une entreprise de 
calculetles prospere. Au mo- 
ment du grand bourn de la 
micro-informatique. Tramolo 



Macworld : 
UNE REVUE 

(completemcnt) 
NULLE 

Du fm fond de chez Domini- 
que, autour dune table encom- 
bree de bouleilles et de verres, 
\e jette un coup doeil torve sur 
le monde qui nous entoure 
Cette semaine, j'ai feutlletd 
pour vous la revue (amen- 
came) Macworld qui. comme 
son nom I'indique. est consa- 
cr6e au monde du Macintosh. 
155 pages de luxe encom- 
brees de publicites A pari ca 
RIEN. Pas le moindre soupcon 
de listing, de programme, dou- 
tils, d'astuces. de trues Rien 
de ce qui serait susceptible 
d'mteresser les possesseurs 
de Macintosh desireux de sor- 
tir des sentiers battus. Ca ne 
vaut vraiment pas le coup de 
depenser 65 francs, les gars. 
fm mes sous en t ravers de la 
gorge. Pour tout vous dire, j'ai 
trouve dans une revue fran- 
caise dediee aux ordinateurs 
Apple un programme Basic 
toumant sur Mac Ce qui 




prouve que cot& systeme D on 
se debrouille pas mal ici. 

APPEL A TOUS PERSONNE 
NA PUBLIE DE BON PRO- 
GRAMME SUR MACINTOSH I 
ENVOYEZ NOUS VOS OEU- 
VRES EN BASIC OU EN AS- 
SEMBLEUR 68000 POUR 
VOIR CE QUE VOUS ETES 
CAPABLES DE FAIRE U 



Depuis. chez Commodeur. on 
dit que 'Jack Atrahi". Ce mau- 
vais calembour est pourtant de 
mise, car Tramolo a promis la 
mod d'Appoil et de Commodeur. 
Sont pas des tendres dans lin- 
formatique 

Au moment ou je vais pousset 
la porle en verre fume . un 
jeune vendeur de journaux a la 
criee passe dans la rue en brail- 
lant sous sa casquette ecos- 
saise 

"Demandez le Washing-Ma- 
chine-Post ! Mick Bidouille dil 




etait sur les rangs C est exacte- 
ment de cette facon qu'il s est 
fait engager chez Commodeur. 
la celebre firme des ordinateurs 
qui puent Mais des differences 
de vue avec les patrons de 
Commodeur n'ont pas tarde a 
faire sudace. Et Tramolo nest 
pas le genre de gargon a qui 
Ion en compte II a done lait ses 
valises et a rachete la societe 
Atrahi qui battait de laite 



toute la vente sur laftaire du 
Gang des Puces P 
Je manque davaler mon dentier 
de travers et ie gauie le singe 
hurleur avec ma canne pour lui 
soutirer i edition speciale ' 
(Ne manquez pas la suite dans 
le prochain Hebdo, ne rongez 
pas vos ongles. ne passez pas 
par la case depart.) ■ 
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George MEURISSE et son CANON X07 vont remplacer efficacement votre vieille calculatrice usee. 



Mode demploi: 

Ce programme (12516 octets) oftre un grand nombre de lonctions et 

peui-etre utilise des la classe de seconde, il est particulierement 

adapte aux classes de terminale C et D. 

Apres HUN, le debut du programme s'affiche. entrer alors un ■ 

pour obtenir la suite des options ou entrer directement la premiere 

lettre de 1 option choisie 

Option: (lettre a rentrer pour utiliser le programme ) 



Equation (E) 



Suite (S) 



Complexe (C) 
Fonction (F) 



Du second degre (2) 

Equation diHerentielle (0) 
Factorisation (F) 



(ax- 
lay 



bx 



by 



u, 



b. c 
a. b. cgRi 
(division de polynomes) 
(R = reel C = complexe) 
ex: Un = 3n 
ex: U n *i = U n /2 
ex: U n+2 = 2U n + 1 + U 
(entrer 2U2 + U1J 
Le programme sur les suites calculent le 
nieme terme ainsi que la somme en nieme 
terme. 




t(n) 

.. 1 = '(U n ) 

U n+ 2 ='(U n + 



U„] 



Racine nieme (R) 
Equation (E) 

y = f(n)(1) 

y = f'(n) (2) 
y - Hn) (3) 
y = F(n) (4) 
Hn) = (5) 



(racine nieme dun nombre complexe) 
(ax 2 + bx + c = 0,a, b.c. x.ec) 
10 lonctions- peuvent etre programmees 
simultanement 

POur le calcul de lintegrale : , 

la borne infinie est symbohsee par I / 
integrate de a a + lintini 
| 'de - linfini a b. 

Pour le calcul de f{n) = deux methodes 
de calcul sont utilisees (Newton et 
Oichotomie). 



Trigonometrte (T) 



Mat rice (M) 



Probabilite (P) 



Calcul (C) 



Statistique <S) 



Developpement (D) 

G raphe (G) 



Trans'orme un complexe sous la lorme tn- 
gonometnque ip.ej en un complexe 

sous la lorme algebnque a + ib 
Resolution de systeme (n equations an in- 
connues) (R) 

Determinant (D) (matnce carree) 
Factonelle (F) 
Arrangement (A) 
Combinaison (C) 

Fraction (F) relractionnahse un nombre 
1,050210063 donne r- 

5V 3 

2VT7 

Nombre premier (N): donne tous les 
lacteurs premiers dun nombre 
Exposant (E): calcul x n pour n tres grand 
ppcm et pgcd (P): calcul du PPCM et 
PGCD de deux nombres. 
Calcul avec une variable (moyenne. va- 
riance, ecart type). 

Calcul avec 2 variables (moyenne de n.y. 
variance de x. de y ...,) droite d'ajustement. 
developpement de (x * y) n et (x- y) n 
Sin = 2(x + y)2 = x 2 + 2xy + v 2 . 

Dessine la courbe sur lecran 

Le programme determine le repere pour 

optimiser la place disponibie 




1DO CLEAR30O 


MTHEMATh 

1210 n-N'0:o-2:gotoh9o 


QUES sur C 

.5W1E3 


ANON X- O 


7 

-4#A»F-4*B*e 


110 PI"3. I4139267339979:E-EXP(1) 


1220 RETURN 


3435 D-1NT 1DM1ES..5I '1EB 


4610 KEY«lll*'runRUN4630' •CNR* 1131 


3340 G-58RIR"2*I-2>:X-'IG-R) /2:Y-IG 


120 DEFFNC i ;■.)- -ATNIX/ sob ! i ■■■•:■ 1 1 *P 


1900 R*iJ> ■D»'STR»IGI •B«.5rBi!HI .C 


3490 PRINT-vH.I-»-t.(-lCl-l 1*C*A* 


4620 IFA»- -O- THENL IST463OELSE4630 


-RI/2 


1/2 


• 'STBliO . B«-ETR»i , | . - > ' 


-' Icbii'IDI "lnlftB**" lain ( " 1D1 ')» 


4630 DEFFNUNIU2.U1I- U2*U1 


3330 IF I >-OTH£NM-SBR(X> :N-SORi Yi ;v 


130 CONSOLE, , ,0,1 


1910 GOT02000 




4640 INPUT-UI 1I--IU1: INPUT-UI2I--I 


•-m:w--n 


190 KEY*I 1 l»-rui)RUN* 'CMC1II.1I 


1920 RBI J)*D»*STR»(G)«B*»STR*IHJ »C 


3491 IFG»v '-0-TMEN3495ELSEG0SUB900 


u2:a-ui:b-U2 


3560 IFK0THENV-59RIX) :N-SBRlYI in- 


20O INPUT- Eouat ion, Suit*, CDm-pl»« 


■•STR*IX1 *B**STR«(YI •■ ) ■ 


34*2 Cl»iU0-C*YO)/U0:C2-Y0 


4650 INPUT-n--|N:IFN< ) INT IN) 0RN<2T 


-viy— N 


•.Fonction, •->■!«• 


1930 GOT02000 


3493 PRINTA»*---*STR*[C1I : PRINTS** 


HEN4630 


3370 J-2»IA-2»B"ZI 


210 B*-L6FT»IA*,1I 


1940 R«(->-D*-STR«IG)-B**STR*IH> *c 




4660 SN-A*B:U1«A:U2*B:F0RI-2T0N 


3380 HalA*H*N*B-D*B-A*C)/J:5>iA»N* 


220 IFB»-'E"THEN3O00 


«*STR«(UI *•) *:GOT02O00 


3495 G0SUB9O0:G0TO100 


4670 T-FNUNIU2.U1 1 


B*C-A*D-B*M) 13 


230 IFB»-*S"THEN4000 


1930 R*(J1-D**STRS(C)>C**STRXX> -k 


3500 R»-C/B:PHINT-vixl--«A**-a-l*l 


4680 U1-U2:U2-T:SN«SN*T 


SS85 K* iA*vu*B-C*B-A*C> /J :l=(A+w« 


240 IFBS*"C*IHEN3000 


*'11R*, ; i •■ i ■ : GOT 02000 


■-. fii -1 l';GOSUB900-.GOTaiOO 


4690 NEXT I 


B*C-A*D'B«V)/J 


250 lFBf-F-T«ENtO00 


I960 R*t JI-D**STR*(G>*B**STR*IH) :G 


3700 PRINT-calcul d« pci/p'i.i- 


47O0 PRINT'UI'f Nl *)•• IU2: G0SUB900 




2CO I FB»- ' - "TMEN300 


OT02O00 


3705 INPUT-d99r» d« p(») :'|M:INPU 


4710 PRINT"SC1N1'I--|SN 


!2>-I:R(3)»H 




2000 RETURN 




4720 G0T04630 


3600 R(4)>S:R[3)-k:RI6)-L 


3O0 INPUI'IngoriDmlrn.NHrl-H.P 


3000 INPUT" 2nd atgrt,diit»-r, R 


3710 IFN>HTHEN3700 


4730 ONERRORGOT04890 


5610 GOSUBIOOO 


rnbabi lit*. ">")*« 


1 1*1 1*. factor t*a-t Idn'IA* 


3714 PRlNT-co*>4. da p(n>' 


4755 INPUT-Nouv*ll* Ignition tO/N) 


5620 PRINTCHR*(241I f-"»P»(l) »-»| ( 


310 H--iFET»,a*,i 


3010 B*>LEFT*(A*, I) 


3715 DIMU1M1 , VINI .OIN-Nl :F0RI-MTO0 


: *1A* 


■•R*(ZI i") - : G0SUB900 


320 IFB«--T-TMEN7000 


3020 IFB*--2"THEN32O0 


STEP-l:PRINT-co*« i iclant da- 


4760 KEY*lll--9toG0T04730-*EHR*l 13 


56 30 PRINT -z ' >* •R*)t3l •-*1<**R*I4>- 


330 IFB»--M-THEN8000 


3O30 IFB*-'D*THEN3400 


3720 PRINT-.' 1 • | Il • ) ■• | j INPUTUI I 1 : 




*> *:GOSUB900 

3640 PRINT'i' ■■"•r»i5i » ■ • 1 1 - • k» i a i 


340 IFB*-"P"THEN9OO0 


3040 IFB*»"F"TKEN3700 


NEKTlrPRINT-eoa*. da p'lxl* 


4763 lFA*--0-TH6NLIST4770ELSE4770 


350 IFBS----THEN400 


3030 G0T0100 


3723 FORl-NTOOSTEP-l: PRINT 'cotM le 


4770 DEFPNFIX)- SINIX) 


• - 1 ' : GOBUB900 


360 GOTO 100 


3200 INPUT-a--(A 


iant da- 


4774 PI -3. 14139263358979: E-EXP 11 1 


3630 GOTO1O0 


400 INPUT'Calcul.Statiatiqua, d*ve 


3210 INPUT-t»*IB 


3730 PRINT-«* i-| I| -l-'I : INPUTVII 1 : 


4775 INPUT-born** ia,b) «--|A:lNPU 




1 oppmfrit .Graphs " ! A* 


3220 INPUT-C--JC 


nekti:fori-otom 


T-b"* IB: IFB<»ATHEN4773 


6010 INPUT'Liat* d*s fonction* (0/ 


410 IFA*--C-THEN9400 


3230 F-2tA:D-B'2-4#A*C 


3735 UiI1-UIII*IVIN)-(H-N*l) ):NEKT 


4780 C-1B-A) /I 191DIMDI 1 19j :h-A!F-F 


N) : " 1 A*: IFA*'*0-THENLI$TS6O30- 


420 IFA*-'S" THEN9800 


3240 IFDC0THEN3320 


I:F0RL'OTOH-N 


vfiA) :g-f:SU-f: in-g 


6020 INPUI-Num.ro Q- lonctioni'lA 
6030 IFA-1THENDEFFN FIX)- 1/1XSX) 


430 IFA*.--D"THEN7300 


3230 R-I-B-SQRID1 J /F : S- I -B*S8R (D) i 


3740 QiM-N-Ll-U(M-L)/V(Nl iFORK-LTO 


4785 FORI-OTOllBIDI II-FNF 1M1 :m-H»C 


440 IFA*--G-THEN4730 


/F 


H-L 


4790 IFDI I 1 >FTHENSU-D(II :F-DII 1 


6040 IFA-2THENDEFFN F(XI- X*2 


430 G0TO100 


3260 PfUNTCHR*<241 1 • - -- I BJ G0SUB900 


3745 U<K-K)-U(M-K>-VIN*L-K)«OIM-N- 


4793 IFDI IXGTMENIN-DIII :G-DU 1 


6030 IFA-3THENDEFFN FIXI- X*3 


900 K«-INKEY*: IFKf - iHENUOOELSEPE 


: PR INT - < • - - 1 R : G0SUB900 


li :nextk,l:o-vini-(n-n*ii 


4800 nekti :cls:g-isu-Ini /32 






3270 PRINT-x' • -• ) S: GOSUB90O: G0T01O 




4803 IFSU»IN>0THEN4813 


6070 IFA-3THENDEFFN FIXI- X-3 








4810 F-ABSIIN/EUI | Y-32/ IF*I 1 :LINE 1 


6080 1FA-6THENDEFFN F(XI> X«6 


1000 FORJ-1TON:GOSUB1001:NEXTJ:RET 


3320 G--D 


3735 A*--«-;FDRL-OTOM-N 


O.YI - 1119, Y) 


6090 IFA-7TMENDEFFN FIX)- X-7 




3330 M-3:DIMR(3> :DI«R«(3J 


3 760 F-H-N-LIPRINT-l-tOlFlJ-Z-IDl- 


4815 IFA*B>0THEN48Z5 


6100 IFA-8THENDEFFN FIX)- x-8 


1001 a*-chr*ii60) :b*--«"«a*:c*-- i i 


3340 R111«-D:R(Z»--8/F!R13»-SBR(-D 


i . - ■ IFIAa: IFL-1THENA*--- 


4820 X--A/C:LINE<X,0) -IX, 311 


6110 IFA-9THENDEFFN FfX)- X*9 






3763 G0SUB900:NEXTl.:PRlNT-raata I" 


4823 IFISU*IN)*OTHENR-(BU*INI /IE9: 


6120 IFA-10THENDEFFN FIX)- X*10 


1002 IFR(J) COTHEND»----ELSED»--- 

1003 ROI-ABSIRIJi ) 


3330 GOSUBIOOO 

3360 PR1NTCHRCI241) »*-* + R»Ul : GOSU 


: A*- - * - : FORI -N- I TOOSTEP- 1 

3770 PRINT- l*IUIII t • / * 1 Di -) > - • [ I [A 


5U-SU*R: IN-IN*H 

4830 F-l (SU*1N>0XSU/G) • < <SU*IN(0> 


6123 IFIA< 1I0RIA>10I0R(A<)INT (A) IT 


1004 IFRl Jl ■imiRiji HHtNUuli D«. 
STR»(R< Jl 1 : re turn 


B900 

3370 PRlNT-K-"-*R»[21»"-l ORCC3I • 


• :G0SUB900: IF I - i THENAa- - - 
3773 NEXTI:G0T0100 


4833 F0RI-OT0118: J-AB6IDI1 l/G>Fi:P 


6130 PRlNT-y-f(il >•- +1.1 yi 
■• l») y-Flxl -lxl-0* 
6140 INPUT-Choi. (1 a 3i:'lA 


1003 D-RIJI*RIJJ : IFABS(D-INTID) ><■ 
1E-9THEND-INT(D> 


'» *:GOSUB900 

33B0 PRINT *x* ■-"*Raf2|.".i | -*R«| 3) 


4000 PRINT-Un-f In) ill- 
4010 PRINT-Un.l-f (Un 1 121- 


3ETII.J) : NEXT I 

4840 G0SUB900:CLS:G0T0100 


101O IFD-INT ID1THENB-D:G0SUBU30:G 
OT01960 


3390 60SUB900:GOT0I0O 


4020 PRINT*Un*2-t (Un'l.Unl 13)* 
4030 INPUT-Choi*'!! 


4890 RESUMENEXT 

5000 INPUT- Racin* Nint, Equa-t I o 


6160 IFA»1THEN6300 
6170 IFA-2THEN6330 


1020 g-d:h>g: i«int ihj :cosubio7o:c* 


3400 PRINT ■•/■ ' .by' *cy-0' : A«-CHR*< 


4040 ONIGOT04100, 4300, 4600 


n- |A* 


6180 IFA-3THEN6400 


SSRIB1 : U-S9R IE) 


244) : B*>CHK*<243! 


4100 INPUT-Nouual 1* Suit* (D/N|-;A 


501O B*-LEFT*CA«, 1 l 


6190 1FA°4THEN6300 


1030 IFC( >INT<C)ANDW< > INT ( W J THENIO 


3403 INPUT-*, b,c : *|A,B,C:PR!NTA*> 


* 


5020 IFB»a*R*THEN3200 


6200 IFA-STHEN6700 


3SELSE1040 


■ «t '*B»*- r«»]»- 


4110 KEY*lll"-runRUN4130"*CHR*ll3) 


3030 IFB»--E-THEN3500 


6210 GOT06140 


1033 G0SUB1 130:GOSUB1 180:GOT01920 


3406 INPUT-Condi t ton* initial** :* 


4120 IFA*=-O'THENLIST4130ELSE4130 


5040 G0TO3000 


6300 INPUT' . ■ ■ I X: PRINT " f I ■ 1 XI ■ ) »■ ; 


1040 IFC< >INT IC 1 ANDU=INT IUJ THEN I 04 


IG«: IPG*< >-0-THEN3408 


4130 DEFFNUNINI- I/2MNI 


3200 PRINT'i-»+ib- 


fnf ix) : gosu B9 oo: goto63oo 


5EL5E1O50 

1043 GOSUB1130:GOT01940 


3407 INPUT "y !OI--|Y0:INPUT*y- (D)>' 
IIN 


4140 INPUT "n-- IN: IFN< >INT INJORNdT 
HEN4140 


5210 INPUT-*""! A 
5220 INPUT*b-*IB 


6330 INPUT-«-'tX:E-lE-9:S-(FNF(X*E 


1O50 IFC«INT(C>ANDU< >INTIU) intmOS 
5ELSE1060 


3408 IFA-0THEN33O0 

3410 D-3"2-4»A*C:R>SQRlABS(D) ) :ri- 


4160 sn*o:fori»iton 


3230 INPUT- Extraction 


6360 PRINT-* • flXI')-*(S:GOSUB900: 
GOT06350 


1035 GOSUBllfiO:GO>UiT=0 


(•B»R- /2/A!R2- C-B-RI/2/A 


4170 =N-iN*FNUNlI J 


3240 P-S8RIA"2*B*2> 


6400 INPUT '■"■■ t X; E-1E-3 


1060 MlJl'IM'sTilJICl *-/'*STR*twi : 


3413 fil-INT lSt*IES-,5) /1EB:R2-InTI 
R2*1EB..3J /1E8 


4 ISO NEXT I 

4 170 PRINT-Ul'IN) 'l--IUN:G0SUB9OO 


5250 C-A/P:D-B/P 

S260 E"C: IFJC-1 IORIC--1 > THENE-0 


6413 S-(FNFIX*2*EI *FNF IX-2*E)-2*FN 


10 70 IrA£=:S-INTIOI X-1E-9#ABS(GIT 
HENB-INT IGI :e>i: GOTO 1120 


3420 IFD>0THEN3440 

3425 IF0'0THEN3460 


4200 PRINT-SI-(N| ■]-- (SN 
4210 GOT04140 


3270 F--FNCIE)ft<D< >0)«SGNIDI - iD-Ci 
»10-1)*PI 


6420 PRINT -t • ' 1 -(XI ■ 1 -• 1 S : G0TO6400 
6430 G0T06410 


1O90 H-W (H-I) :I.INTIH) 


3433 IFIK0THEN34B0 

3440 PRINT-vI«l--*A*.-*-(«(-|Rll •) 


4300 INPUT 'Nouv* 1 la Suit* 10/Nl'tA 


5280 h-g*i:v-h:dimrimi :dimr*ihi :FO 

RI-1T0G 


6300 PRINT-Intagration-iDINHIl) :DI 
MRBI1) :DIMZI5):DINW(3) 
6310 D-O: INPUT-born* a-' I A*: INPUT ' 
born* b-"lB* 


iioo C-B*I*a:a-b:b-c:p-E*kd:d*e:e 


l.-*B*»-*-(xI-lR2I-)l- 

3441 IFG** >"0-THEN3443ELSEG0SUB"00 


4310 KEY*Ill--runRUN4330-«CMR*(13) 
4 320 IFA*--0'TMENLIST4 330ELSE4330 
4330 DEFFNUN(UN)- UN/2 
4340 INPUT " U 1 1 1 - - i U I 


3290 Rl I l-IF.2*PI*U -t ) i i ig»PI 1 
3300 NEXTI:R(H>«IA-2*6"2) 


1110 IFABSIG-C/Fl >)E-9«ABSIG)THEN1 


3442 C1-IW0-V0*R2>/ (R1-R2I IC2-Y0-C 


3310 m-h:gosubiooo 


6S20 A-VALIA*) :B-VALIB*> 


090 


1 




5330 A*--- ..ir.:,iB»i IV-1 1*2 )••),-: 


6350 ZI3)-. 1252334085: Z (4 1 -.367831 


1 120 RETURN 


3443 PRINTA*.---.STR*(CI1 :PRINTB*> 


4360 IFN< JINTINIORINi 1 ITMEN4330 


B*-R*IV) IA* 
5340 F0RI-1T0V-1 


4989; z 13) -.3873179343 


1130 G-i t h-b: n-2: o-i 


"-■•5TR*iC2i 


4 370 1F>^1THENPRINT-Utl)>-|U1:GOTO 


6360 ZI2J -. 7699026742:ZI 1 1 -.9041 17 


1140 P-N*N: IFP>H/2TMEN1 170 


-443 GO5UB90O:GOTO100 


4330 


5350 PRINT" t I "l I | -)■[■ *B**CHR*I247 


2364! Z 10) -. 9815606342 


i 130 o-h/p: ifintioi-otmeng-g*n:m-o 


3460 PRINT-vl>>>< "•A*«'i'>B»i->lll 


4380 un«ui : sn-ui :fori«i ion- i 




6570 W(0)-.04717333639:W(1)-. 10693 


tSOTOtlSO 


• ' IX'lRII -1 1 > ■ 


4390 UN'FNUN(UN) 


3360 G0SUB900: NEXT 1 : G0TO1OO 


93259! W 1 21 -. 16007B32BS 


1160 N-N»0:0-2:GOTOU40 


3461 IF6*( >-0-TMEN3463ELSEG0SUB900 




5300 PRINT* \ a ' i n i I "2* lc*dl Ij'tMt a 

0* 

3510 INPUT-a»"IA: INPUT -b-" IB: INPu 

T-C--IC 

3520 INPUT "d-- ID: 1NPUT"*--1E: INPU 


63BO UI3l-.2031674267:yi4l>. 233492 


1170 RETURN 

1180 x-i: v-E:n-2:o-i 


3462 C1-UO-R1*YO:C2-YO 

3463 PRINTA*.-a-.STR*tCl) :PRINTBS> 


4410 NEXT I : PRINT "Ul * INI * I-- 1UN:G0S 


•-:■•■: u .'.,..■■ ;. ,;.(■,.. j- . 

6583 IF IAV.--I- IORIB-.--I* IN6620 


1190 P-N*N: IFP>Y/2THEN1220 

1200 e-y/P: if int iQ)-fiTHENx>x»N: y-q 


---.ST«*IC2I 

3465 GOSUBOOOIGOTOIOO 


44 20 PRINT-Si-INI -!--|SN:G0SUB90O 

4430 G0T04350 


A Cf f/l/DCT 


: GOTO 1200 


3480 C«-B(2/a:D-R/2*A:C-1NT<C*IE8» 


4600 INPUT-Nouv*l I* Suit* (O/NI-IA 


3330 R-C-2-D-2-4*A*E-4»B*F: I-2»CaD 


M Owf vflC .«* 
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Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Oepuis plusieurs semaines, N* 58 — APPLE 

vous profitez dun cours das- N" 59 — T07, T07 70 

sembleur decompose en deux N° 60 — COMMODORE 64 

parties essentielles (lune theori- N° 61 — ZX 81 

que. lautre pratique)- N e 62 — ORIC 1. ATMOS 

N° 63 -• APPLE 

Cette semaine le 6510 du N e 64 — T07, T07 70 

COMMODORE 64 en prend N° 65 — COMMODORE 64 

plein la memoire. La semaine N" 66 — ZX 81 

prochaine ce sera le tour du Z80 N e 67 — ORIC 1 . ATMOS 

duZX81. N" 68 — APPLE 

N* 69 — T07, T07 70 

Jusqu'a present, les cours prati- N° 70 —COMMODORE 64 

ques suivants ont ete publies: N° 71 — ZX 61 

N* 55 - ZX 81 N* 72 — ORIC 1 , ATMOS 

N° 56 - ZX 81 N° 73 - APPLE 

N* 57 - ORIC 1 . ATMOS N" 74 -. T07, T07 70 




Vous vous souvenez certaine- 
ment du principe de fonctionne- 
ment de la bascule J-K Lorsque 
les deux entrees J et K sont a 
un, la bascule change d'etat sur 
un front descendant de I'hor- 
loge. Or cornme vous n'avez pu 
manquer de le remarquer sur le 
schema fonctionnel du comp- 
teur. I'horloge qui synchronise 
toutes les operations pour le 
micro-processeur n'intervient 
que pour la premiere bascule. 
Pour les trois autres, c'est la 
sortie O qui tient lieu d'horloge. 
En pratique, ce procede ouvre la 
perspective du principe de la di- 
vision de frequence. En effet, la 
bascule A change d'etat sur 
chaque front descendant de CK. 
La frequence de I'horloge est 
done divisee par deux Or c'est 
la sortie de A (Q) qui sert d'hor- 
loge a la bascule B. Pour la 
bascule B, le meme phenomene 
se repete el le changement 
d'etat se deroule a une fre- 
quence deux fois moindre de 
celle de A. Quest-ce a dire en 
pratique ? 

Reprenons la numerotation des 
battements de I'horloge sur le 
chronogramme du compteur. 
Dans le tableau ci-dessous nous 

allons porter les differentes va- 
leurs que nous aurons sur les 
quatre sorties A, B. C et D. 
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ware) hors de son contexte, 
vous vous rendrez compte de la 
logique intrinseque de I evolution 
suivie dans ce cours. En effet. 
meme si la connaissance des 
circuits que nous avons regar- 
des vous parait superflue, leur 
etude nous a permis de nous 
penetrer de la logique a appli- 
quer lorsque Ton pratique lart et 
la science informatique. Lautre 
partie vous a sans doute paru 
plus directement applicable dans 
vos demeies avec le langage 
machine. Certes. elle letait, 
mais nous ne nous sommes pas 
encore pose certaines des ques- 
tions fondamentales dans I'utili- 
sation dun ordinateur. Nous 
allons nous en poser certaines. 
maintenant. 

QUEST-CE QUE LINFORMA- 
TION? 

Vous vous souvenez sans doute 
possible des multiples types de 
representations que nous avons 
vues. revues et dissequees ti y 
a auelQues temps. Nous 
sommes encore aujourd'hui ca- 
pables de transformer un nom- 
bre de base 10 en base 2, 8 ou 
16, nous pouvons coder n'im- 
porte quelle lettre sous forme de 
serie de chiffres binaires. Mais 
pourrions-nous affirmer perce- 
voir la nature et la necessite de 
toutes ces manipulations. 

Le schema qui suit va vous 
eclairer sur ce quest linformati- 
que, non pas pour lutilisateur. 
mais pour le concepteur de sys- 
temes. Le probleme que doit re- 
soudre cet homme est de rendre 
simple ce qui ne lest pas. Re- 
gardez: 



Vous vous rendez compte main- 
tenant que la mise en place dun 
compteur ne necessite rien de 
plus qu'une bascule J-K par bit 
de comptage. Ainsi si vous vou- 
lez pouvoir compter de a 127, 
vous aurez besom de sept bits, 
done de seol bascules J-K. 
Apres toutes ces considerations 
purement materielles qui nous 
ont occupees durant ces dernie- 
res semaines, nous allons en 
venir a un nouveau chapitre de 
ce cours. 

TRANSITION 

Nous avons. jusqu'a present, 
voyage dans deux univers bien 
distincts que nous allons tenter 
de reunir a partir de dorenavant. 
Si I'un vous a paru bien esseule 
(tous les derniers numeros 
consacres a la conceotion hard- 
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La meilleure methode d'illustra- 
tion est encore la representation 
sous torme de schemas 

RAISONNEMENT 

MULTIDIMENSIONAL 




Seul I'humain peut acluellement 
pretendre a ce niveau et cette 
qualite de raisonnement Son 
cerveau est alimenle en perma- 
nence par des informations en 
provenance de ses cinq sens. 
Le cerveau est lui-meme une 
sorte de calculates geant capa- 
ble de trailer ces informations a 
tres grande Vitesse (cette image 
du cerveau est d'ailleurs fort 
contestee par les biologistes, 
mais elle offre I'avantage d'etre 
simple). 
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CIRCULATION ET TRA1TE- 
MENT DE L'INFORMATION 

Toute la premiere partie du 
cours nous a permis de creer 
les outils necessaires a la tra- 
duction des donnees en infor- 
mations manipulates par un 
calculateur et la reconversion 
des resultats en un langage 
comprehensible de lutilisateur 
Cet ensemble d operations est 
realise par lordinateur. Mais, 
comme nous lavons vu dans la 
seconde partie du cours, nous 
pouvons recreer une quelcon- 
que fonction logique a I aide de 
circuits electroniques Tout le 
probleme se situe maintenant au 
niveau de I'utllisation de ces cir- 
cuits coordonnee aux differents 
traitements des donnees et des 
resultats. Ce probleme. comme 
je I'ai appele plus haut. sera re- 
soiu par la partie "logicielle" d'un 
ordinateur, que ce soit sous 
forme de programmes en me- 
moires modes ou sur dautres 
supports. 

Nous devons d'abord etablir une 
hierarchie des raisonnements 
pour correctement "sentir" ce 
dont est capable un ordinateur 



Ce type de raisonnement etait 
jusqu'a quelques annees exclu- 
sivement du ressort de I'humain. 
Depuis peu. des calculateurs de 
type "vectonel" se sont develop- 
pes (Cray 1. VAX...) qui sont ca- 
pables de traiter plusieurs infor- 
mations simultanement, a la 
condition que les differents cal- 
culs en cours s'effectuent dans 
la recherche dun resultat 
commun. 
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L'ASSEMBLEUR PRATIQUE 

Langage machine ...sur cbm 64 



Un cours de plus ! C est le qua- 
trieme et le dernier, non. non. 
aie, heu... Ce nest pas le der- 
nier, il ne faut pas vous enerver 
comme ca ! C'est promis. il y en 
aura dautres. 

Je buib uesoie, mais vous auez 
devoir souffrir. le journal decline 
toute responsabihte en cas de 
suicide du lecteur. le sujel de la 
semaine sera: les differents 
modes d adressage 
Adressage 7 Mais oui ! Dans 
une semaine, vous serez capa- 
ble de travailler dans un chenil, 
a moins que voire Commodore 
adore ne vous ait croque une 
main, vous savez, le dressage 
de ces petites betes demande 
de la concentration. 
Pour revenir a linformatique, 
nous pournons dire qu'un mode 
d adressage esl un moyen d'ac- 
ceder a un point de la memoire 
donne ou. autrement dit. une 
adresse 

Les trois premiers modes 
d adressage ne sont pas des 
moyens dacces a proprement 
parler: 

- I'adressage implicite: les ins- 
tructions le concernant prennent 
un octet de memoire et aucune 
donnee complementaire ne leur 
succede. Par exemple INX in- 
cremente la valeur contenue 
dans X (ajoute i dans la case 
memoire de X). 

- I'adressage accumulates: it 
ressemble a I'adressage impli- 
cite mais n'agit que sur laccu- 
mulateur, d'ou le nom. ROL est 
une instruction qui provoque une 
rotation des bits de A dun rang 
vers la gauche, c'est a dire que 
le bit 7 prend la valeur du bit 6, 
le bit 6 celle du 5, le bit 5 celle 
du4... 

- I'adressage immediat est code 
sur deux octets, le premier 
contient le code de I'instruction. 
le second une constante. Si 
vous prenez le listing du dernier 
cours, vous voyez que la pre- 
miere instruction est LDA # S 
40, le symbole # indique d I'as- 
sembleur qu'il s'agit dun adres- 
sage immediat et le S precise 
que la valeur qui suit est en 
hexadecimal. Le premier octet 
contient alors A9 (soit le code 
de LDA # ) et le second 40 
(equivalent a $ 40). 

- I'adressage direct: nous utili- 
sons maintenant trois octets. Le 
premier concerne toujours le 
code de I'instruction. le second 
et le troisieme contiennent un 
nombre code sur deux octets 
soit seize bits Ce mode permet 
alors de "balayer" la memoire to- 
tale de 65536 octets JMP $ 
A0O0 realise un saut a l adresse 
A000 soit I'equivalent d'un 
GOTO AOOO basic. 

- ladressage en page zero: tres 
proche de I'adressage direct, ce 
type possede les memes ins- 
tructions mais qui agissent seu- 
lement sur la page zero Mais 
qu'est-ce que la page zero ? 
C'est la zone memoire comprise 
entre les adresses et FF (soit 
256 octets). Ladressage direct 
est done code sur deux octets, 
le premier contenant toujours le 
code de I instruction et le se- 
cond le numero de loctet 
concerne LDA S 00 charge A 
avec la valeur de la case me- 
moire 0. 

Le gros avantage de ceci en 
comparaison avec I'adressage 
direct est un gain evident de 
place memoire (deux octets 
contre trois) ainsi qu'une diminu- 
tion du temps d'execution du 
programme (meme en langage 
machine vous pouvez accelerer 
voire programme). 

- ladressage direct indexe: deja 
vu la semaine derniere. les ins- 



tructions sont celles de I'adres- 
sage direct (vous I'aviez devine) 
auxquelles on ajoute un des 
deux registres d'index X ou V 
LDA S 0000. X est lexemple 
parfaii si X ^ $ 05 alors laccu- 
mulateur sera charge avec la 
valeur de loctet $ 0000 + $ 05 
= $ 0005 (si la case memoire $ 
0005 contient la valeur $ AE, 
alors I'accumulateur contiendra 
cette meme valeur $ AE). 
Si vous souhaitez remplir une 
zone memoire de 100 octets (a 
partir de $ 1000, par exemple) 
avec une seule valeur. II vous 
suffira de (aire vaner la valeur 
de X de a 99. avec a linte- 
rieur de cette boucle i'instruction 
STA$ 1000, X. 

- ladressage direct indexe en 
page zero: encore un melange 1 
Le nom de ce mode devrait deja 
vous indiquer son sens splrituel 
profond. Eh oui ! Toujours le 
gain de place et de temps, c'est 
un adressage direct indexe 
croise avec un adressage en 
page zero (apres le dressage, 
voici la reproduction). STA S 00. 
X avec X = $ 05 et A = $ FF 
met en $ 0005 la valeur FF ($ 
00 + $05 = $05 !>. 

- I'adressage relatif: pour ces 
chers programmeurs basic, pre- 
nez votre manuel commodore et 
regardez les instructions IF ... 
THEN GOTO ... (page 37 du 
manuel anglais), pour les autres 
(les fous de LM) il est utilise uni- 
quement par les instructions de 
branchement conditionnel, c'est 
a dire pour le resultat dun test. 
Mettons que vous desiriez tester 
le contenu dun registre. puis 
quand ce test est affirmatif ef- 
fectuer un JUMP (equivalent de 
GOTO). La sequence sera alors 
la suivante: 

CPX # $ FA 
BEQ $ C000 

Compare X a $ FA, si egalite 
alors saut a $ C000. L'instruc- 
tion BEQ est utilisee en adres- 
sage relatif 

- I'adressage indirect: c'est celui 
qui concerne les sauts incondi- 
tionnels et cet adressage est 
sans aucun doute le plus fourni 
en instructions: il en posssede 
en tout et pour tout une: JMP 
(qui. comrne vous avez du le 
voir precedemment. realise 
('equivalent dun GOTO) Seule- 
ment ce JMP esl tres special, 
car contrairement a celui de 
I'adressage direct, ladresse ef- 
fective de saut est donnee par 
le contenu de ladresse specifiee 
dans loperande (loperande est 
le nombre de seize bits qui suit 
le code de I'instruction). La syn- 
taxe en est: JMP ($ 3000). Ce 
son! les parentheses qui speci- 
fied un adressage indirect. Si 
en $ C0O0 nous Irouvons $ 00 
et en $ C001 $ 20. le saut sera 
fait en $ 2000 avec I'instruction 
ci-dessus 

Vous aurez sans aucun doute 
note, remarque et souligne le 
fait que le stockage du nombre 
$ 2000 (par exemple) se fait 
dans I'ordre "octet de poids fai- 
ble" ($ 00). puis "octet de poids 
fort" ($ 20). Cette regie est tou- 
jours vraie pour des adresses. 



rence. Pour exemple: X = $ 05. 
Le 6510 prend les valeurs aux 
adresses X + $10etX + $l0 
♦ 1. soit $ 15 et $ 16. En sup- 
posant que ces deux adresses 
contiennent respectivement AF 
et E8. I'accumulateur sera 
charge avec la valeur de la case 
memoire d adresse $ E8AF. 

- ladressage post-indexe indi- 
rect: c'est le frere du precedent 
adressage. Seules trois differen- 
ces Ten demarque . La syntaxe 
change: LDA ($ 10), Y. La se- 
quence que suit le processeur 
se decompose alors de la ma- 
niere suivante; il regarde le 
contenu des octets $ 10 et $ 11. 
A ce contenu (suivant la regie 
poids faible en premier, poids 
fort en second) il ajoute la va- 
leur contenue dans Y. Finale- 
ment, il charge dans I'accumula- 
teur la valeur trouvee a 
ladresse obtenue par les opera- 
tions precedentes. 
Supposons qua ladresse $ 10 
nous ayons $ 9E. et a $ 1 1 
nous ayons $ A1. Le registre Y 
contient pour sa part $ 01. Le 
processeur rencontre I'instruc- 
tion: LDA ($ 10), Y II trouve tout 
d'abord ladresse $ A19E, puis il 
y ajoute la valeur de Y, soit: $ 
A19E + $ 01 = $ A19F. II char- 
gera alors dans I'accumulateur 
la valeur contenue dans I 'octet 
d'adresse $ A19F, 

Et voila I C'est fini. Nous venons 
de passer en revue les diffe- 
rents modes d'adressage du 
6510, si vous desirez les comp- 
ter il va fafloir enlsver une de 
vos chaussure ainsi qu'une 
chaussette afin de pouvoir Irou- 
ver un onzieme doigt (je pense 
que vous possedez cinq doigts 
a chaque -main et 2 x 5 - 10. 
or il y a onze modes, j'ai done 
pense a vos pieds). 
Cependant, si vous comptez 
deux modes pour le direct in- 
dexe (X et Y) et deux autres 
pour le direct indexe en page 
zero (encore Y et X) cela fait 
comme par magie treize modes 
et ne voulant pas me mettre a 
dos les superstitieux je ne parle- 
rai pas de treize modes mais de 
onze Na '- 

Je ne sais pas si la digestion du 
dernier cours fut bonne, mais en 
tout cas vous etes gates ! Et 
maintenant la petite application 
du cours du jour. 

T LISTING Assembleur. 
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Pour ceux qui n'ont pas encore 
de programme d assemblage 
entre?. le listing basic suivant. 

▼ LISTING Basic 



5 PPINTCHR*'. 14' REM POUR PRSSER EN MINUSCULES ! 

10 F0RF=12233T012318 REflDfi P0KEF,fl B=B+fl NEXT 

2d IFB=5000THEHSYS12288 END 

30 PRINT"IDI0T!,ERREUR HE DRTR ! ! " 

50 DfiTR160,0, 132.251, 169,4, 132,252, 160- 158, 132/ 

253.169,161.132,254,160 
60 DRTRQ 177,253, 145,251, 153. t : ', 216, 209, 192,204, 

208,244,36 



- ladressage pre-indexe indirect: 
un nouveau croisement, cette 
fois entre indirect et indexe. La 
syntaxe ressemble a cela: LDA 
(S 10. X). Le principe en est re- 
lativement simple: le contenu de 
X est additionne a ladresse $ 
10 et le resultat sen de refe- 



Avant de lancer le programme, 
passez en mode miniscules 
(touche SHIFT + C= ), Le pro- 
gramme peut n'utiliser que 17 
octets: a vous de decouvrir 
comment ! La solution la pro- 
chaine fois. 

Sebastien MOUGEY 
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DEMANDEZ LE PROGRAMME soft-parade 
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Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretentions pas que cette liste est complete et definitive etil est evident que nous y raj outerons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes qui jouissent d'une 
bonne reputation et qui se vendent surtout grace a la publicite et aux conseils des vendeurs qui ne peu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les a bonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a taire baisser les tarits des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur ! 

Les classements sont taits en fonction de I'interet du programme et ne tiennent pas compte des prix, 
c'est a vous dejuger de I'opportunite de la depense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 
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Ne soyez plus envieux des autres machines, rnettez 
plutot votre spectrum dans le vent avec ce createur de 
sprites. 

Luc DE BOIS 
Mode d'emploi: 

Le listing 1 n'est qu'un programme de presentation. 
Le listing 2 est un programme de demonstration. 
Le listing 3 contient la routine en language machine permettant de 
gerer 256 iutins en, environ 17eme de seconde. 
La routine occupe 255 octets. II est alors interessant de la loget 
dans la memoire tampon de limprimante (c est ce qui se passera si 
vous suivez les instructions du programme RUSTINE). Elle n'occu- 
pera done pas de place dans la zone memoire des programmes 
basic . Cependant il est alors impossible d'utiliser rimprimante. Si 
les instructions LPRINT. LLIST. COPY, vous sont absolument ne- 
cessaires. il est obligatoire de les stocker aiHeurs dans la memoire. 
Par centre, les caracteristiques memes des Iutins sont stockees 
dans la zone des programmes basic. Le meilleur endroit serait. jusle 
avant les caracteres redefinis. Le programme suivant vous indiquera 
I'adresse voulue et la stockera dans la routine, ainsi que le nombre 



SPECTRUM 



de Iutins desires. 



LISTING 1 



10 INPUT "48 KO ou 16 KO ?"; K:INPUT "nombre Lutms, (< 256)": 

N 

20 IF K = 48 THEN LET B - 65367 

30 IF K = 16 THEN LET B = 32599 

40 LET A = B • 24 ■ N 

50 POKE 23298. (INT (A 1256)) : POKE 23297, (A-fINT (A1256)* 

256)) : POKE 23300. N 

60 PRINT A 

Description des 24 octets utilises par chaque lutin 

- 1er octet : mouvement 

Choisir le (ou la) composition de mouvement. Placer 1 dans les 
cases desirees : dans les autres. Faire PRINT BIN (le nombre de 
8 chiffres). Ce sera cette valeur qsu'il vous faudra placer dans cet 
octet. Si aucun mot desire faite 0. 

- 2eme et 3eme octets : ordonnee / abscisse 

Si ord > 21 aiors ord = 0. Si ord > 130 alors ord = 21 (de meme 
si ord < 0) 

Si abs > 31 alors abs - 0. Si abs > 130 alors abs - 31 (de meme 
si abs < 0) 

- 4eme, 5eme, 6eme, 7eme, Seme, 9eme, 10eme. Heme, 12eme. 
13eme, 14eme octet 

Utilises par le programme. II est imperatif de faire un premier RAN- 



DOMIZE USR 2396, si on utilise pour la premiere fois ce lutin. Ainsi 
les valeurs de ces octets s'ajusteront correctement Ne vous affolez 
pas ! Un carre noir s'affichera a (0,0) ou peut-etre ailleurs. II n'en 
sera rien ensuite. 

- 15eme octet : facon d'atficher 

Si le lutin passe dessous. il faudra donner comme valeur. 

Si le lutin passe dessus mais avec le FLASH, BRIGHT et PAPER 

du caraclere. il faudra donner la valeur 100. 

Si le lutin s'affiche avec toutes les couleurs demandees, il faudra 

donner nimporte quelle autre valeur. 

- 16eme octet : attribut du lutin 
+ si pas de bright, sinon 128. 
+ si pas de flash, sinon 64. 

+ 8 " couleur papier 

+ couleur encre 

C'est cette valeur finale qui sera rentree. 

- I7eme, 18eme, I9eme. 20eme. 21eme. 22eme, 23eme. 24eme 
octets : 

Ce sont les octets du dessin du lutin. On leur donne des valeurs, de 
la meme facon que les UDG. 



se print at s,a«; 



: 7; ■■ 



10 PAPER 0: BORDER CLS 
28 PRINT AT 4.0, INtv 5,'CE PRO 
ORAMHE UA CHARGER LE PROS. 

DE "j INK 2, DEMONSTRATION' . PR 
INT AT 6.0, INK B, "QUI CHARGER* 
LE 3«- PR^RT t ftT C 8^5 t INK 7, PAPER 
1;"IL N'R OONC AUCUNE UTILITE" 
PRINT AT 13, B, INK 4, "LES PRQGRA 
MMES NECE5SAIRES SONT:"- PRINT A 
T 14, B; INK 5, "-LE PROS. "; INK 
7,"DEHQNS": PRINT AT 1ft. 0, INK 5 
."-LE PROG. '■; INK 7, "RUSTINE ', 
INK 4," OUI UA CReER CE CODE ET 

BUI LE SAUUERA AUTOriRTIOu 

EMENT SOUS FORME DC "; IN K 2, 

•'BYTES', INK 4," SUR CASSETTE" 

4.0 print at 20,0, ink s;"ce pr 

OGRAMME SE TROUUE '*, INK 3, "APRE 
5 "J INK 6; "LES BYTES "; INK 7; " 
CODE" . 

53 PRPER 7: INK 8 

60 LOAD "" 



LISTING 3 

1 REM OCgONSTggTION 

RUSTINE* 

ECRIS PAR 
LUC DE BOIS 
SUR SPECTRUM 16 K< 
3 REM 

3 REM BCH*RG£MENT DU CODEB 

4 LOAD ""CODE 

5 GO SUB 9999 

6 REM (IMPRESSION DECORS 

7 PAPER S: INK 8: BORDER 8 

PRINT AT 1,4; PAPER 7; "■**■" 
PljINT AT 2,1; PAPER ' 



«• PRINJ^AT 6.12; PAPER 0; 

79 ' P R INT AT 7,2; PAPER 0, " : 
■■T 1 ",AT 7,19; PAPER 5; INK 
fi; " X;; , P.T 7,37, PAPER 0; INK 6: 



, PAPER 3j"i«". PAPER 8, 

^ W^rM'ift "(Via,* 



8* P RINT AT 8,1; PAPER 0;"" 

. 2"" TPP", PAPER 3; INK 2;". 

^■"• ST 8, Si, PAPER 0; INK 5, T* 

» PRINT AT 9,0; Pf 
INK 3, " ■_■ 

^"pSteF'i.w" 

I PAPER 

I PRINT AT 10,0; : 
■ 7. "■■' '; PAPER 3, 
L";Tskr »i" — 

~APER 6; L 1", ( 



6, INK 0, 



R 0, " 

HPth 

v, INK 
PAPER 7; INK 



90 PRINT AT 9,0, PAPER 
_-, INK 2; " __. "; INK B 

100 PAPER 

110 PRINT RT 10,0; INK 3 

INK ~ " 

PAPER 0, 
120 PRINT 

pAPr" " 



3aa~P9fNT AT' 20 ,0; PAPE R 4.; INK 
', I NK 6 ; ■'***■*■**■■ ; -■ 



i PRPER 120 



310 PRINT AT 21,0; PAPER • 



9001 REM .MOUUEMENT3 LUTTNS . 
9003 LET nil. 33334- LET mvOOS 
072- LET «vt4-33096 LET »vl5»32 



I , PAPER e,*|L 
;"| -j INK 0; "T 



» y ,7, 

; PAPER 8. 

130 PRIN T AT 12. 0; INK 3;"*"; 
PAPER 7; "*«*ta^«* ■■.■; PAPER T, "f 

■*j ink *;-r^ _ 

14B PRINT AT 13,0, INK 3;" ^" ; 
PA PER ?J" ", PAPER 0; INK 

3, "■■■ "; INK 4, "M, 



,«;" "; INK e 

, PAPCR B; INK 3 
INK *; *' "iW 



a 



160 PRINT AT 1B.B," ", PAPER 6 
; INK B; "h *J", PAPER B; INK 

3;" ■"; PAPER 3, INK a; " ■ 

J"; PAPER B, INK 4.;" r ■ 

170 PRINT AT 16. B," "i PAPER 

6; ink B; "I ", paper b; '■ 

', PAPER 3,",", INK l,"tfc "; 
INK B, ;;«!", INK 4, PRPER B, ,T C / 

IBB PRINT AT 17, 0i" "i PAPER 

6; ink a; "I ", PRPER a; " 

'; PAPER 3; INK B; '* ' , INK 4, 
•■", INK l;"*", INK 0-"J', PAPER 
0, INK 4; " V ", INK 7; "■ 



190 PRINT AT 16, t 



9008 REM .COORDONNGES. 

9BB6 LET ord2n330*9 LET ord3»33 

«73 

90B7 LET JBii.3iasa LET l s s3=JS 

074 

9BBB REM .MODE D ' IMPRESSION . 

9809 LET dts3. 32336 

9B1B REM .DATA HUT LUTIN 3. 

9898 RESTORE 9990 

9893 REM .DRAPERUX HO'J'JEMENTS ■ 

9095 LET t=l 

9088 REM (proc B'RNIMHTIOMl 

9108 FOR T.31 TO STEP -1 

910B REM .APPEL SOUS-PROG LUTIN 

9118 RANDOMIZE U5R =3396 

9112 IP r/2»INT lf/2) THEN LET i 
■1: LET d>l 

9113 If f/2<HNT ir/2; THEN LET 
*--l: LET 4-64 

9130 ir lf»7 OR '»231 THEN POKE 

913»'lF If-IB OR f»31! THEN POKE 
|Vtlj3j 

9148 HERD »: POKE ord2,PEEK o.-dS 
f«i POKE •b»a,PEEK «bii+l 

9145 IP »-l THCN POKE «Vt3,6 

9146 IP »--l THEN POKE «vt3,48 
91S0 IP RTTR (PEEK 0fd3+*,PEEK * 
bf3tl> >61 THEN POKE d«t3,0 

916B IF RTTR (PEEK ord3+»,PEEK * 

b*3+l) *45 THEN POKE d«s3,100 

9170 POKE BVtB,d: POKE «Vt4,d 

9800 NEXT f 

9618 GO TO 909« 

■9398 REM tlNIT. DEB 6 LUTINSB 



B5,63,42 

99iB ORTA 32,19,6,19,6,48,0,0,0. 

0,B,0.a,0, 100,4.3,14, 16, 16, 13.3, 

3,7 

992B DATA 3 , 10 , B , IB , , , 0,a , B,0 , 

0,a,0,a,iae,&, 192,20*, 76,53,49, i 

04,96, 193 

9930 ORTA 4,1,10,1,10,40,0,0,0,8 
,8,0.8,0, 100,0,0,0, 139, 195, 102,6 
0,34,0 

9948 DATA 64,36,19,20,18,32,8,0, 
0.0,0,0,0,0, IBB, 1,4,38,137, 127,2 
63,136,254,124 

3950 DATR 64,31.10,21,10,32,0,0, 
0,0,0,0,0,0.100, 1,60,60,60 , 255 . 1 
27,83,124.134. 

S9B8 REM HDATA HUT LUTIN 2fl 
990 DflTR~ ,-1,-1,1,-1, 1,-1,1.1, 



,-1,1.1,-1,1,-1,-1,1,: 



9996 REM B6.PP.6g. INIT. LUTINSB 
9999 LET •=32008: POKE 23299 , (IN 
T U/2B6)): POKE 23297 ,(»-( INT ( 
a^3361 *256) I : POKE 23380,6: REST 



18 REM PROORAMHE RU6TINE 
POUR CREATION DE LA 
ROUTINE LUTINS 
28 REM 
38 REM ECRIS PAR 

LUC DE BOIS SUR 
3PECTRUM 16K0 
40 REM 
58 REM TOUTES LE5 INSTRUCTIONS 

50NT DAN5 LE PROS. 
68 REM 
90 RESTORE 
188 DATA 33,0,125,6,2,229,197,1 
97 , 3S, 36 . 35 , 86 , 35 , 94 . 35 . 213 , 205 

118 ORTfl 2+0,91,126,18,6,8,209, 
205,215,91,35,126,16,20,16,250 

12B DSTA114. 11,9, 193, 16,324, 193 
, 325 , 229 .T97 , 197 , 126 , 35 , 86 , 35 , 94 



130 DATA 203,71,40,2,20,39,203, 
79 , 4.9,1 . 30 , 303 ,37 , 40 , 3 , 20 , 28 , 203 

14-0 DATA 95,40,1,28,203,103,48, 
2. 21, 26. 2B3, 111, .10,1,21,383,1.19 

IS0 PAThi 40,3,21,29,283,137,40, 
L , 39 , 123 , 254 , 22 , 36, 10 ,254 , 130 

168 DATA 56,4,22,21.24.3,32,0,1 
23,254, 32, 56, 10, 264 

170 DATR 138,56,4,30,31,24,2,30 
. . 4.3 , 1 14 , 35 , 1 15 , 35 , 1 14 , 3S , llS 

190 DRTA 35,313,305,240,91,26,1 
19,5.8,209,285,215.91,35,26,119 

190 DRTA 30,16,350,14,11,9,193, 
16 , 143 , 193 , 225 , 197 , 36 , 86 , 3B , 94 , 1 

238 DRTA 12,0,9,126,163,40,38,3 
13, 206,240,91. 36,264, 100,33, 10 

310 DATA 126,230,7,79,36,330,24 
B. 139,24,1, 125, 18,209,308,215,91 

23B DRTA 6,6,35,126,18,30,16,25 
0, 36, 193, 16, 206,281,1, 10, 0,9, 24 

238 DRTA 246,122.22,84,214,8,56 
, 18,22,72,214.8.56,4,22,80,214,8 

340 DATA 198,3,15,15,15,131,95. 
£81,229,38,0, 106,41,41,41,41,41 

250 DOTfl 32,86,35,335,225,201,7 
6 , 46 , SB , 69 . 33 , 66 , 79 , 73 , 63 
1830 FOR ('•23296 TO 23551 
1818 READ i : POKE F * 
1828 NEXT f 

2888 PRINT 'CE PROGRAMME UP. SRUU 
ER SUR 6ANDES0US FORME D ' OCTETS 
LR ROUTINE." 

3810 PRINT "LORSQUE UOUS OUREZ B 
E50IN DE LA ROUTINE LuTINS.IL 

_UOUS SUPFIRfl DE CHRRGER C 

ES OCTETS PAR LORD " 1 CHRt 3+;C 

HRf 34;'' CODE" 
2020 PRINT ; PRINT "LE PROGRAMME 

DE DEMONSTRATION LEFERR AUTOMAT 
POUROUOI IL 



IOUEMENT. C'EST 

EST INTERESSANT DE SAUUER LE CO 
DE JUSTE APRE3." 

2038 PRINT ; PRINT "UNE FOI5 LE 
CODE 5RUUE.CE PROG. N'A PLUS AUC 
UNE UTILITE. CEPENDANT, ii_ 

EST PRUDENT DE LE C0N5ERUER EN 
CAS D'EUENTUELLES ERREURS DRN5 
LA RECOPIE DU CODe. " 
3040 PRINT ; PRINT "PREPAReZ LA 
mation" : ? RINT " ET bonne PROGRAM 
2058 5AUE "CODEXODE 23296,256 



ERRATUM sur SPECTRUM 

CAP MAN du rf 66 
II manque les codes ma- 
chine. Tapez les lignes 8300 
a 9199 et faites RUN. Entrez 
les codes machines. Tapez le 
reste du listing. 



6 2 6 8 126 18 38 35 

16 360 42 24. 2*5 33 26 246 

132 103 56 27 246 133 111 34 



24 246 206 9 268 IB 294 6 
284 96 246 42 24 246 206 ~ 
260 62 4 2 33 206 266 6 



6 126 16 20 36 16 2S0 201 
42 24 246 56 37 246 294 
40 74 354 1 40 3 44 44 
45 34 24 246 62 1 60 26 
246 62 60 37 346 S3 29 
246 163 36 5 62 255 50 26 
246 56 36 246 254 1 40 2 
36 36 37 80S 250 10 294 
6 4B S 56 26 246 237 68 
59 6 246 42 24 346 58 if 
346 254 1 40 2 37 37 36 
34 24 246 301 66 26 246 2o4 



__j 62 1 60 27 346 62 
50 26 246 56 38 246 189 56 
3 62 255 58 27 246 58 27 
248 264 1 40 2 44 44 46 
208 9 358 18 354 6 40 6 
68 27 246 237 68 50 37 £46 
42 24 246 56 27 246 354 1 

49 2 45 45 44 34 24 246 
301 22 167 124 9 
00009090 
00000990 

13 17 1 16 17 42 24 

347 205 250 33 112 61 62 

5 2 8 8 126 18 20 35 

16 350 42 24 347 58 36 247 
132 103 56 3? 34? 133 111 34 
24 247 295 9 360 19 254 6 

204 96 247 42 24 247 205 
250 62 4 2 33 208 255 6 

6 126 18 23 35 16 360 301 
42 24 247 66 37 347 254 
40 74 2S4 1 40 3 44 44 

45 34 34 247 63 1 50 26 
347 62 60 27 347 58 29 
247 168 56 5 62 255 50 26 
247 58 26 247 354 1 40 3 
36 36 37 205 250 10 264 
6 40 8 56 36 347 237 88 

50 26 247 43 34 347 56 26 
247 254 1 40 2 37 37 36 

34 24 247 201 58 26 247 254 
1 40 2 36 36 37 34 24 
247 62 1 60 27 347 62 
50 36 247 53 38 247 169 56 
6 62 255 50 27 247 56 27 
247 264 1 40 3 44 44 45 

205 350 19 354 6 40 6 

68 37 247 237 68 59 27 347 



42 24 347 68 27 347 264 1 

40 2 46 45 4-4 34 34 24.7 

201 

90000000 

00000000 

29 fi 1 16 17 42 24 

243 205 350 33 113 61 62 

5 2 6 6 126 18 20 35 

16 260 42 24 348 58 36 24S 

132 103 56 27 248 133 111 34 

24 246 296 9 250 10 354 6 

294 96 246 42 24 349 2B5 

350 62 4 2 33 208 255 6 



6 1£6 13 20 35 16 260 201 

42 24 246 SB 27 24S 254 8 
40 74 254 1 40 3 44 44 

45 34 24 243 62 1 50 26 
348 62 50 27 248 58 29 
248 188 56 5 62 255 59 26 
248 58 26 £46 254 1 40 2 
36 36 37 205 9 350 10 £54 
& 48 8 56 26 248 £37 68 
58 36 348 42 24 £48 53 £6 
248 354 1 40 2 37 37 36 
34 24 246 291 56 36 248 254 
1 49 2 36 36 37 34 £4 
246 62 1 59 27 £43 63 9 
50 £6 £46 58 £6 248 1B9 56 
5 63 255 50 £7 246 56 27 
248 254 1 40 2 44 44 45 
285 350 10 354 5 49 6 
58 27 348 337 68 50 37 246 

43 24 348 68 37 246 254 1 



197 46 2B6 360 10 254 3 

383 93 249 193 16 242 42 24 

246 6 4 197 36 205 £68 
10 254 2 292 93 349 193 16 
243 42 24 246 6 4 1)7 37 
285 e sse 18 354 3 293 ,- 
249 193 16 243 301 193 130 £5. 
1 300 33 36 6 34 66 92 
62 1 50 66 92 201 
9 42 24 247 6 

4 197 44 206 250 10 £E4 

£ 202 193 249 193 16 242 4£ 
24 247 6 4 197 45 206 
260 19 254 2 293 193 34« 193 
16 £42 42 £4 247 6 4 197 
36 205 9 £60 19 364 £ 203 
193 249 193 lS 243 42 24 247 
6 4 197 3? £05 9 269 10 
354 2 203 193 249 193 16 242 
201 123 139 254 1 299 33 35 

5 34 66 92 62 1 60 63 
93 301 
00000000 
00000009 
00000000 
90000000 
00000000 

23 167 134 6 5 33 203 

13 16 251 133 96 313 193 120 

198 38 71 303 66 40 4 122 
198 7 87 203 74 40 4 133 
198 14 87 123 198 64 87 301 
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193 16 £42 42 £4 246 6 4 











3 


3 


3 


3 



00000990 
09009990 

00099000 
00009900 

00000900 

00090900 

0000906 27 

14 255 13 32 353 16 249 201 

09000000 
00000000 
00000000 
00099000 

00009030 
16 17 16 17 205 142 2 42 
200 250 123 254 19 32 3 44 
34 37 254 4 32 3 45 24 
30 354 3 32 3 36 24 13 
354 11 32 3 37 24 6 62 

50 199 2S0 201 205 8 250 
10 354 5 40 £4£ 34 £82 £50 
42 £00 250 205 £58 62 
2 6 3 18 20 16 252 42 

282 250 34 200 250 201 194 351 

58 198 259 254 1 40 30 66 
200 250 254 15 33 £3 96 201 
250 354 3 33 7 63 17 50 
301 369 24 9 £64 16 32 5 

&£ 3 50 £01 £50 42 200 250 
205 £50 10 £54 5 32 3 

59 199 250 62 2 2 33 246 
£42 6 8 128 18 30 35 16 
250 42 209 258 34 28 246 34 
26 247 34 28 246 201 43 
£00 250 295 250 19 254 4 
192 33 45 1 34 66 93 63 

1 50 68 92 291 9 
90000990 

9 9 9 9 9 76 262 




THOMSON T07, 
+ T07 70,M05. 
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-f 1 INPUT MFf 




7970 


NF*=LEFT»<KF»,8> 




7075 


NDT=<4*ND*NR>«-(6*ND 




7876 


IF PF*=" THER MEH 




70B6 


OPEN "0',#1,S*+KF$+ 


."+PF* 


7B90 


PRINT #1.ND,NR,T,El 


ECl,T2,Tf 


7180 


FOR 11*1 TO NR 




7110 


FOR K=l TO ND 




7128 


PRINT tl,A(K,rt> 




7125 


G0SUB 6758 




7138 


PRINT tl,H«<K,n) 




7 135 


G0SUB 6758 




7136 


PRINT tl,P0UK,H> 




7137 


G0SUB 6758 




7148 


PRINT »i.::^.i' 




7138 


G0SUB 6758 




7166 


NEXT K 




7178 


NEXT H 




7186 


FOR 1*1 TO ND 




7 196 


PRINT 11, NR*(I> 




7 195 


C0SUB 6758 




■/?S8 


PRINT #1.ND*' I ■ 




7^05 


G0SUB 675B 




7219 


PRINT #1,P< I > 




7226 


G0SUB 6758 




7221 


PRINTtl,P0CI> 




7222 


G0SUB 6758 




722-J 


PRINT#1,DEU> 




7224 


G0SUB 6750 





7225 PRINTil,T(I) 

7226 G0SUB 6758 
7236 NEXT I 
7232 CLOSE tl 

7234 COLOR .0 

7235 FDR J=l TO 1256:NEXT J 
7248 RETURN 

8888 CLS: SCREEN 2,8.8 

8805 PI=3. 1*159 

9840 FOR 1*1 TO ND 

9850 P0U) = 188*P(I)/T2 

8860 DE(I)=2*PI»PtI)/T2 

8070 NEXT I 

8888 I1=0:X=8.-Y=8 

8885 LINEC228,18B)-(385, 100> 

8098 FOR 1=1 TO ND 

8118 FOR 12=11 TO I1+DE(I) STEP 0.01 

3120 X=C0SCI2>*85+228 

8138 Y*SINCI2>»85*18e 

8148 PSET(X,Y) 

8158 NEXT 12 

8168 I1 = IH-DEUJ 

8165 LINEt:228,iee>-<:X,Y) 

8178 NEXT 1 

8188 FOR 1=1 TO ND 

8198 LOCATE B,I*4iCQL0R 3,8: PRINTUSING'i 

#"JI;tC0L0R 6,0:PRI*TUSING " •».#f;P0(I 

>;:COL0R 7,8:PRINT- 'A' 

8218 LOCATE 0,1!COLOR 7, 1 :PRINTT*s COLOR 

,% 

8215 CO1=0!CO=8 

8228 FOR 1=1 TO ND 

3225 C0=COl 

8238 C01=C01+DE(I > 

S235 C02=CC0*C01V2 

8240 C03=XOS':C02:'»85+228 



8258 LI3=SIN(CO2i*85*100 

8280 I$=STR«CI>:if=RIGHT«<I*,LEN(I*>-l> 

3290 LOCATE C03^8, LO-'BiCOLOR 3fPRINTI* 

8380 NEXT I 

8400 GOSUB 1680 

3410 RETURN 

18858 DATA 89,46,84,79.78,68,69.78,73,69 

,82 

10588 Al*(n=CHR»C27>*'F ,, + -: H1ST0GRAHHE 

10518 AI*(2>=CHRf(27)+"F H +"t HISTOGRAHHE 

RVEC CUHUL* 
10520 Al*<3>=CHR*(27>-f" F'+": HISTOGRANHE 

EN POURCENTAGE" 
10530 GOSUB 28888 
18535 FOR 1=1 TO 3:LOCATE 8, 18+I*2!COL0fi 

3sPRINTi;Al*a>:NEXT I 
10540 ATTRB 1,1: COLOR 1,6:L0CATE 15,5:PP 
INT-HENU :";:C0L0R 7:PRINT" 3":ATTR8 0,6 
10545 LOCATE 35, 19:C0L0R 7,4:PRINT"ST0P" 
: COLOR, 8 
10550 LOCATE 28,23:C0L0R 5:PRINT*CH0IX : 

18568 CH*=INPUT*(1> 

10578 IF CHf=CHR*<2) THEN GOTO 508 

18588 CH=VflL<CH*> 

18598 IF CH<1 OR CH>3 THEN L1=23:C0SUB 1 

588 

18608 ON CH GOSUB 30008,9,3808 

18618 GOTO 10538 

11088 A1*(1.''=CHR$<27) + -F"*-I C0UR8F" 

11818* Al$<.£>=CHR*i27J*"F"*": C0UR8E AVEC 

CUKUL" 
11820 GOSUB 20066 

11030 ATTRB I, l: COLOR i.0i LOCATE 15,5:PR 
INT"HENU s-JJCOLOR 7:PRINT K 3"=ATTRB 0,0 
11032 FOP 1=1 TO 2:L0CATE 0, 10*1*2: COLOR 



3:PRINTi;AKa>:NEXT I 
11035 LOCATE 35, 19:C0LOR 7, 4: PRINT"5T0P" 
: COLOR, 
11848 LOCATE 28,23:C0L0R 5: PRINTTHOIX : 

11058 CH*=INPUTS(1> 

11076 IF CH*=CHR»(2> THEN GOTO 500 

11088 CH=VALCCH*> 

11898 IF CH<1 OR CH>2 THEN L1=23:G0SUB 1 

508 

11108 ON CH GOSUB 2500,5008 

11110 GOTO 11028 

11586 AIf(l)=CHR*(27)+-F"*': CAMEMBERT- 

11518 Al*<2>=CHRf<27>*'F-*-! CAMEMBERT E 

N POURCENTAGE" 

11528 GOSUB 28880 

11538 ATTRB 1,1: COLOR I,0iLOCATE I5,5:PR 

IHT'flENU :*;:C0L0R 7:PRINT" 3'JATTRB 8,B 

11532 FOP 1=1 TO 2:L0CATE 8, 18+1*2: COLOR 

3:PRINTI;AI*(I):NEXT I 
11535 LOCATE 35, 19:C0LOR 7, 4:PRINT"ST0P" 
: COLOR, 8 
11548 LOCATE 28,23=COL0R 5: PRINT'CHOIX : 

11558 CH*=INPUTSC1> 

11578 IF CH*=CHR*(2) THEN GOTO 508 

11588 CH*VAL(CH*> 

11598 IF CH<1 OR CH>2 THEN LI=23:G0SUB 1 

508 

11680 ON CH GOSUB 48880,8000 

11610 GOTO 11528 

20080 CLSiSCREEN 2,0,0:LOCATE 0,0,8 

28081 LINE<4,7)-<99,7>,6 

28882 LINE(4,17>-r.99,17>,6 

28883 LINE(4,8J-<99,8),4 
28084 LINEC4,16)-C99, 16). 



Suite page 24 



GALLERY 



Societe de transport MSX cherche homme courageux, 
doue d'un sens aigu de leconomie, pour mission recla- 
mant de I'audace, des reflexes et de la delicatesse. 

Vincent et Daniel MARZIN 



Mode d'emploi : 

Ce jeu comporte 3 tableaux, des reserves de FUEL limitees el une 
seule vie (dur !). L'emploi des touches est conseille. Le deplacement 
gauche-droite s'effectue a I'aide des touches <- et — et I'ascension 
par appui sur la barre d'espace. !a pesanteur se charqeant du reste. 



MSX 



1er tableau : 

Votre vaisseau bleu, situe a gauche de lecran, doit atteindre le fond 
du puit situe a droite. en evitant si possible les fusees, les stalactites 
et les stalagmites de la grotte. 
2eme tableau : 

Vous devez tout d'abord effectuer le plein de fuel en vous posant 
sur la reserve, puis vous faufiler jusqu'a la plateforme en bas a gau- 
che. Vous chargez alors un precieux container et effectuez le che- 
min inverse sans oublier de faire le plein au passage. 
3eme tableau : 

Vous evoluez dans le meme decor que le premier tableau avec 
obligation de deposer votre chargement au fond du puit a gauche. 
Bon courage! 



10 cls:definta-y 

20 G0SUB990 

30 C0L0R12, I ,6:screen2,2:spriteon: 

0NSPRITEG0SUB470:M=248: J=120:DIMA( 

256) !DIMB(256) :zb=i 

40 ' 



50 



-DATAS POUR LES SPRITES- 



60. * 

70 DATAO, 2, 62, 248, 62, 2,0,0 

80 DATAO, 2,62, 248, 62, 2,0,0 

90 DATAO, 2,62, 248,62, 2,0,0 

IOO DATAO, 0,24,60,60, 126, 90, 195 

110 DATAO, 0,24,60,60, 126, 90, 195, 25 

5, 195, 165, 153, 153, 165, 195,255 

120 * 

130 * DEFINITION DES SPRITES-- 

140 ' 

150 fgrd*1td4:b*=" ' :f0rn=1t08:read 

a:b*=b«+chr*(a> : next: sprites (D)=b* 

:next 

160 forn«itoi6:reade:fs*f*+chr«(e> 

: NEXT: SPRITE* tO)=F* 

170 ' 

180 ' DESSIN DU ler TABLEAU 

190 ' 

20O Z = RND(-TIME) :x = 3o: Y=60:M=-248:Z 

A* tOO 

210 PLAY'T7003L12G04CCDECED03G04CC 

DEGGDBAGC03CEBAABBADEFGCCCDEFGABAG 

FEDC" 

220 F0RN=1T0256:B(N)=INT(50#RND<1) 

) :A(N)=1NT(50*RND(1) > : LINE <N, 192) - 

<N,162-A(N)),6:LINE<N,0>-(N,10+B(N 

) ) ,6:NEXT 

230 F0RN=1T0U:LINE(230+N, 192)- (23 

0+N.100) , 1INEXT 

240 LINE (220, 190) - (250, 192) ,, B 

250 ' 

260 * ler TABLEAU 

270 ' 

280 0=INT(50*RND(1> ! +50:Q«0 

290 L~INT(50*RND(1) ) +60IQ-0 

300 FORN^ITOZAILINE (30+N.5) -<30 + N, 

10) ,7:NEXT 

310 IFV-0THENPUTSPRITE4, <X, Y) ,4ELS 

EGOSUB830 

320 PUTSPRITE1, (M,0) , 9: PUTSPRITE2, 

(J,L» , 12:PUTSPRITE3, < J+60,L-5) ,13 

330 M=M-6: J=J-6:D=STICK(VI) 



340 1FM=2THENM=248:0^INT I 50*RND I 1) 

) +60 

350 IFJ=2THENJ=248:L=INT (50*RND( 1 ) 

) +60 

360 IFV=lTHENG0SUB83O 

370 IFV=1THEN390 

380 IFPOINT (X+3, Y+3) =60RP0INT IX+4, 

Y+3)=60RP0INT(X-1 , Y+8) =60RP0INT ( X+ 

7, Y+8)=6THEN470 

390 IFD=3THENX=X+2 

400 IFD=7THENX=X-2 

410 Y = Y + 2 

420 LINE <230- (20O-2A) , 5) - (230- 1200 

-2A) , 10) , 1 

430 IFZA>0ANDSTRIG(.VI)THENY=Y-3!ZA 

=ZA-ZB 

440 IFZA<=20THENBEEP 

450 IFP0INT(X,Y+8)=12THEN510 

460 G0T0310 

470 F0RN=1T013:S0UNDN, 185: NEXT: FOR 

N= 1 TO 1000 : NEXT: G0SUB1 130 

480 ' 

490 ' DESSIN DU 2eme TABLEAU 

500 ' 

510 SCREEN2:SPRITE0FF:M=176:K=125 

520 A*="C6D30R40D30L55D20R15U10R30 

D65L60D4OL6OU7OL40D70L40D50" 

530 B*="C6D30L20D75R45NU15L60D40L3 

0U70L70D70L40D50" 

540 PLAY°04L18AL6GL18EL6C03L18AL6G 

L1BCL6E03L18GL6AL1804CL6E04L1BGL6A 

06L18AL6GL18EL6C05L18AL6GL18CL6E05 

L18GL6AL18D6CL6E06L18GL6A02L18AL6G 

L18EL6C01L18AL6GL18CL6E01L18GL6AL1 

802CL6E02L18GL6A" 

550 PSET 1210,0) : DRAWA*: PSET (200, 0) 

:DRAWBS: PAINT (0,0) ,6 

560 PAINT (250,0) , 6: LINE (200, 0) -(21 

0,0) , 12: LINE 1200, 1)-(210,1),12 

570 PSET (220, 58) , 6: DRAWC15U5R3BD2 

L3BF3BR2NU5R3NU5BR2NR3U3NR2U2R3BR2 

D5R3BR3D2U9NL24U1L24D10" 

5BO X=202: Y~3:LINE(25, 190) - (45, 192 

) , 11 , B 



670 

320 
6S0 
690 
700 

710 



730 
740 
750 
Y-2 

760 
770 
780 

790 
800 



IFPOINT (X+3, Y+3)=6GRP0INT<X+4, 
=60RP01NT (X-l, Y+8)=60RP0INT (X+ 
■8)=6THEN470 
IFV=1THENG0SUBS30 
IFPOINT (X, Y + 8) = 11THENW=1 : GOSUB 

IFPOINT (X, Y)=12THEN900 

IFW=0THENY=Y+2 

W = 

IFZA>0ANDSTRIG(VI)THENY=Y-3:ZA 
-1 

LINE (M-(K-ZA/2) , 185) - (M- (K-ZA/ 
190) , 1 

Z=STICK(VI) : IFZ=3THENX=X+1 

IFZ=7THENX=X-1 

IFPOINT (X, Y+8)=15THENZA=250:Y= 

G0SUB620 

IFV=1THEN660 

IFZA< =20THENBEEP 

G0T0630 

'--2eme TABLEAU AVEC LA CAISSE 




-2eme TABLEAU- 



610 ' 

620 FORN=1TOZA/2:LINE(50+N, 185) - 

0+N, 190) ,7: NEXT: IFV=1 THENRETURN 

630 IFV=1THEN660 

640 PUTSPRITE4, (X,Y) ,4 



810 ' 

820 ZA=400! V=l :GOSUB620:Y= 181: PUTS 

PRITE4, (X, Y-l) , l:M=251:K=200 

830 PUTSPRITEO, (X, Y) ,4 

840 IFPOINT (X+3, Y+3) =60RP0INT (X+4, 

Y+3)=60RP0INT(X, Y+16) =60RP0INT (X+7 

, Y+16)=60RP0INT(X, Y+8) =60RP0INT < X+ 

7,Y+8)=6THEN470 

850 IFPOINT (X, Y+16)=14THENllSO 

860 RETURN 

870 ' 

880 ' ler TABLEAU AVEC LA CAISSE 

890 ' 

900 SCREEN2:FORN=1T0256:LINE(N,0) - 

(N,10+A(N) ) ,6: LINE IN, 192) -(N, 162-B 

(rt) ) ,6:next:x=232: Y=170 

910 F0RN=1T011:LINE (230+N, 192) -(23 

0+N, 100) , l:LINE(30+N, 192) -(30+N, 10 

O) , liNEXT 

920 LINEI25, 190) - (45, 191) , 14, B 

930 SPRITEON: IFFU>100THENZA=100: ZB 

= .5 

940 LINE(220, 190>- (250, 192) , ,B 

950 G0TO3O0 

960 ' 

970 ' INSTRUCTIONS 

980 * 

990 C0L0R12, 1 , 1 : INPUT "VOULEZ VOUS 



JOUEZ AVEC LE (J)OYSTICK OU AVEC L 

E (OLAVIER" IZS 

1000 IFZ*="C"THENVI=OELSEIFZ*="J 

HENVI^l 

ioio cls:locateio, io:print-* g 

L E R Y *" 
1020 L0CATE0.20: INPUT " INSTRUCTIONS 

(0/N) " ;0«: IFO»="N" THENRETURN 
1030 CLS: L0CATE10,0:PRINT"# GAL 

L E R Y *" 
1040 L0CATE0,5:PRINT" VOTRE MISSIO 
N EST D'ALLER CHERCHER UNE CAISSE 

DE VIVRES AU FOND DE LA GROTTE' 
:PRINT 

1050 PRINT" II ne taut pii se cogn 
er crjntrt les psroit rti se fair* p 
©renter par les fusees." 
1060 PRINT" Au second tableau -fait 
es le plein de-fuel en vous posant 
sur le reservoir, al lez c he re her la 

caisse, revenez, re+aites le pi 
ein et remontez au pre-mier tables 

1070 PRINT"Allez deposer votre cai 
sse dans le puits a gauche :C'ES 

T GAGNE! ! ! . . " 

1080 IFINKEYSO" "THENRETURN 

1090 G0T01080 

1100 * 

1110 ' PERDU 

1120 ' 

1130 SCREENO:LOCATEO, 10:PRINT"PERD 
U.VOUS AVEZ ECHOUE DANS VOTRE 
MISSION" 

1140 fdrn=1t010! color 1:f0r0=1t0100 
:next:colori2, i, i:foro=itoioo:next 
:NEXT 

H50 L0CATE0.20: INPUT'VOULEZ VOUS 

REJOUER (0/N) "(OS 

1160 IFO*="0"THENBEEP:RUNELSEIFO*= 

"N"THENEND 

1170 G0T01160 

1180 SCREENO 

1190 ' 

1200 * GAGNE 

1210 LOCATEO, 10:SPRITE0FF 
1220 IFV=1THENPRINT"BRAV0, VOUS AVE 
Z BR1LLEMENT REUSSI VOTRE MISSI- 
ON !":G0T01150 • 




TI99 BASIC ETENDU 



1 Suite de la page 2 



1090 DISPLAY AT (10 

1100 DISPLAY AT (11 

r wjzr r" 

1110 DISPLAY AT(12 

1120 DISPLAY AT (13 

trr v <-" 

1130 DISPLAY ATI14 

1140 DISPLAY AT(15 

1150 DISPLAY AT (16 

1160 DISPLAY AT(17 

1170 DISPLAY AT (IS 

1180 DISPLAY AT (19 

r r r tr " 

1190 DISPLAY ATC20 

1200 DISPLAY AT (21 

v trr r" 

1210 DISPLAY AT(22 

1220 DISPLAY AT (23 

'*jjj.i' rrrr " 

1230 DISPLAY AT (24 



0,20):: NEXT I :: RETURN 

1310 DATA 200. 440, 200, 494, 200. 523, 200, 49 

4, 200. 523, 200, 587. 20O. 523, 300. 567, 600. 65 

9 

1320 RESTORE 1310 :: FOR 1=1 TO 9 : : REA 

D DU,NO :: CALL SOUND (DU, NO, O. 1 10.20, 200 



122, B) 



RETUR 



13, 122,8, #4, 100, 1 

. 13, 122,8. #4, 100, 1 
8) : : RETURN 
, 13. 122, 8, #4, 100, 1 
8, #6. 104,8. 90.242) 



RETURN 



jjjjjjsujj wjjtr 



1) : 



1240 RETURN 

1250 DATA 200.440,200.494.100.523.100,52 

3. 10,33333, 100.523. 100,523,200,494,200.4 

40.200,393 

1260 DATA 200.440.200.494.200.440 

1270 RESTORE 1250 :: FDR 1=1 TO 13 :: RE 

AD DU.NO :: CALL SOUND (DU. NO, 0, 1 10, 20. 20 

0,20):: NEXT I :: RETURN 

1280 DATA 200.440.200.494.100.523.100.52 

3, 10,33333. 100,523, 100.523.200. 494.200. 1 

40.200,393 

1290 DATA 350.494,200,440 

1300 RESTORE 1280 :; FOR 1=1 TO 12 : : RE 

AD DU.NO :: CALL SOUND !DU. NO, . 1 10, 20, 20 



1340 CALL SPRITE(#3.98, 

1,57.2421 :: RETURN 

1350 CALL SPRITE t#3,9i 

1,57, 242, #5. 102.9,165 

1360 CALL SPRITE I#3,9; 

1,57, 242, #5, 102,9, 165 

: : RETURN 

1370 !»«* 3EME TABLEAU ### • 

1380 GOSUB 770 :: GOSUB 1330 : 

1390 !##« 4EME TABLEAU ### ! 

1400 GOSUB 1010 :: GOSUB 1330 

1410 !#tt# SEME TABLEAU ### ! 

1420 GOSUB 770 :: GOSUB 1340 : 

1430 !#»* 6E11E TABLEAU ### ! 

1440 GOSUB 1010 :: GDSUB 1340 

1450 !### 7EME TABLEAU *## ! 

1460 GOSUB 770 :: GDSUB 1350 : 

1470 !### 8EME TABLEAU *## ! 

1480 GDSUB 1010 :: GOSUB 1350 

1490 !##* 7EME TABLEAU ### ! 

1500 GDSUB 770 :: GOSUB 1360 : 

1510 !### 10EME TABLEAU ### I 

1520 GOSUB 1010 :: GDSUB 1360 

1530 :##tt HEME TABLEAU ##tt ! 

1540 CALL BEST 

1550 GDSUB 1270 :: GOSUB 1300 

270 it GOSUB 1320 

1560 SC= 18860 :: CALL PAUSE(300):: GOSUB 

680 : : GOTO 240 
1570 V=V+1 :: IF V>4 THEN V=4 
1580 CALL DELSPRITE(ALL): : FDR 1=0 TO 50 

:: SC=SC+10 :: DISPLAY SI ZE (61 AT (2. 22) : 
U5ING ":#*«##": 5C :: CALL SOUND ( 10. 550, 1 
0):: NEXT I 



TURN 



RETURN 



RETURN 



RETURN 



RETURN 



RETURN 



RETURN 



GOSUB 



1590 FDR 1=4 TO 24 : : D 


SPLAY AT (I. 1) : "d 


ddddddddddddddddddddddd 


ddd" : : CALL SOU 


ND(-IO. -5,5) : : NEXT I : 


RETURN 


1600 SUB PAUSE(Z):: FOR 


N=I TD Z 


1610 NEXT N : : SUBEND 




1620 SUB REDEF 





1630 DATA 007E42427E4242, 007C447E42427E. 

007E424040427E. 007E222222227E. 007E407040 

407E 

1640 DATA 007E4070404040.007E42404E427E. 

0042427E424242. 007E0B080B0B7E, 0002020202 

427E 

1650 DATA 004C506G504S46,0040404040407E, 

007E4A4A4A4242, 007E4242424242. 007E424242 

427E. 007E42427E4040 

1660 DATA 007E42424A467E.007E42427E4846. 

007E407E02427E. 0O7E0S0BODOBOa. 0042424242 

427E 

1670 DATA 00424244485060, 0042424A4A4A7E. 

00422418182442. 0042427E02427E. 007E040B10 

207E 

16S0 RESTORE 163G :: FOR 1 = 1 TD 26 : : RE 

AD AS :: CALL SOUND ( -200. 1 50+1 . I ): : CALL 

CHAR(I+64,A*):: NEXT 1 
1690 DATA 007E464A52627E.00060A12224202. 
007E027E40407E.007E021E02027E.004042427E 
0202. 007E407EO2027E 

1700 DATA 007E407E02427E.007E040B102040. 
007E427E42427E. 007E427E02027E 
1710 RESTORE 1690 :: FOR 1=1 TD 10 :: CA 
LL. S3UNDC-200. 500, I) : : READ At :: CALL C 
HAR(I+47.A») : : CALL SCREEN ( I #1 .5) j : NEXT 

I t? 9UBEND 
1720 SUB DIE2 

1730 CALL CHARI128. ,, COA090B8B4828181". 12 
9. "818182848B90AOCO". 130. "04040404040404 
04", 131, "0001 0204081 0203F", 132, "20100804 
02010000 ") 

1740 CALL CHAR(133, "C3", 134, "00000000000 
08063", 135. "FF484B484B4B4848", 136, "4B4B4 
848484S48FF") 
1750 SUBEND 

1760 SUB DIE(PO.PL,K>.');; CALL C0L0R(13.1 
, 1, 14, 1, 1) 

1770 CALL HCHARIRO.F'L. 1281 : : CALL HCHAR ! 
F0+1,PL. 129) : : CALL VCHAR tPO, PL+ 1 , 130.2) 
:: CALL HCHAR (RD. PL+2, 131 ): : CALL HCHAR ( 
P0+1.PL+2. 132) 

1780 CALL HCHAR (PO.FL+3. 133) : : CALL HCHA 
R(F0+l.PL+3. 134) : : CALL HCHAR ( PO. PL+4, 13' 
5):: CALL HCHAR (FD+ 1 . PL+4, 136) 
1790 CALL C0LDR(13.KK, 1. 14, KK. 1) : : SUBEN 



1B10 CALL SUUND(-10.-5,P) : : NEXT P :: 

XT I : : SUBEND 

1820 SUB TITRE 

1830 DISPLAY AT (23, 3) : "COPYfil GHT 

1840 DISPLAY AT ( IS, 1 >! "REALISATION : FRE 

DERIC HDUDE" 

1350 DISPLAY AT (20. 1 ): "DISTRIBUTION PAR 

HEBDOGICIEL" 

1860 SUBEND 

1B70 SUB TOUCHE 

1880 CALL KEY(0, I,K> : : IF K=0 THEN 1 Bl 

1890 FDR 1=1 TD 24 :: CALL SOUND (-1 000. 3 
00. I):: DISPLAY AT ( I . 1 ) : :: NEXT I :: 

BEND 

1900 SUB MUSI DUE 

1910 DATA 100,392,100.440.100.392,100.44 
O. 100.33333, 100,392, 100.440, 100,349. 150, 
440,200,392 

1920 RESTORE 1910 :: FOR 1=1 TO 10 :; RE 
AD A,B :: CALL SOUND (A+ 1 00. S-100, O. S-: 

, 5,3-110. 10) : : NEXT I 

1930 SUBEND 

1940 SUB BEST 

1950 CALL CLEAR :: CALL DIE(1.15,I3) 

1960 DISPLAY AT (5. 2): "FIN DE TOUS LES TA 
BLEAUX. " 

1970 DISPLAY AT ! 7. 2) : "VOUS VENEZ DE PULV 
ERISER" 

1980 DISPLAY AT (9. 1 > : "LE RECORD AVEC IBS 
60 POINTS. " 

1990 FOR 1=0 TO 500 STEP 10 ! : CALL SDUN 
D(-60,110+(1.5»I) , 1/50,330+1,1/25.610-1. 

1/20) : : NEXT I 

2000 DISPLAY AT ( 12, 3) : "BRAVO " :: 

DISPLAY ATU4.2) : "DIE2 N'A PLUS DE SECR 
ETS" 

2010 DISPLAY AT(16.5> : "FOUR VOUS 
2020 FOR 1=500 TO O STEP -10 ;: CALL SOU 
ND(-60. 110+ (1.5* I) .1/50.330+1. 1/25,610-1 
, 1/20) : ! NEXT I 

2030 DISPLAY AT ( 1 9. 1 1 : "UN AUTRE JEU ?[D/ 
N3" :: ACCEPT SI ZE f 2) AT ( 23. 101 : 04 
2040 IF 0*="0" DR D$="o M THEN CALL CLEAR 

:j CALL SCREEN13):: RUN "CS1" 
2050 IF 09.= "N" DR a* = "n" THEN 2070 
2O60 CALL SOUND!200. 110,0. -B.O. 400.0) : 
BOfO 2030 
20T0 SUBEND 



TANGRAMORIC 



Inspired d'un jeu de formes chinoises ce programme 
vous propose de reconstituer certaines figures a I'aide 
de 7 formes geometriques. 

J. Louis LEROY 



ORIC 1/ATMOS 




9 PQKE61V1V ^IuW* 



ie cytowww 

19 REM 

20 REM PKS£nTAT|ijN 
DES FIGUKs 

21 REN 

23 REM 

24 REM FIGURE I CMOI 

25 REM 
26CUR$EI3«.(t-l «r$UB 

27 REM 

28 REM FIGURE 2 C-HQI 

29 REM 

38 CURSET28.72.1 GOsU 
B28109 

31 REM 

32 REM FIGURE 3 CMOI 

33 REM 

34 CURSEU2. 168.1 COS 
1*329290 

33 REM 

3* REM FIGUK 4 CHOI 

X 

3? REM 

38 CURSET128.40-I U4> 
112 24-48 GO$UB2030e 

39 REM 

48 REM FIGURE 5 CMOI 
N 

41 KM 

42 CURSET128. 128.1 GO 
5U628488 

43 KM 

44 KM FIGUK 6 CHOI 

45 KM 

46 CURSE T I 94. 48- I W6- 
218 Z6-96 GiJSUB203«0 

47 REM 

48 KM FIOURE 7 CHOI 
X 

4? KM 

38 CJRSET174. 128,1 GO 
SUe29600 

32 G<1 «20 M- 1 >-48 K< 
8m70 •:URSET42.48.8C 
HAR49-8. 1 

33 G<2>-28 M< 2 1-128 " 
CD-109 CURSET62.128. 
9 CHAP50.0-I 

34 $A3.»£e H43?>»4-K 
'2»I83 CURSET62-184. 
8 CMAR51.9.1 

33 G<4>-|82 H<4)-9« "> 
<3>-ll7 CURSET144 ■=*. 
CHAP52.0.1 

36 G<5mi92 M-5«l44 

K<4>*ll4CURStri44.1h 

4.8 CHAR33.0.1 

37 G<6«IS9 H»6m92 K 
(S>-I01 CURSET222.9/. 
8 CMAR54.9. 1 

38 G' 71-198 H* SWI60 
K<6>-32 CURSET222. 160 
. 9 CHBB33 8 1 

39 F0R1-1T07 F0RJ-8TQ 
6 CURSETC* I >*«tJ,M< I > 
,8 CMARKf J>.8.1 NEXrj 
.1 

62 KM 

63 KM CHOIX C* LA F 
IGUK 

64 KM 

65 a? PRINT PRIHT-OU 
ELLE FIGUK CHOISISSE 
Z-VOUS t- 

78 GETFt F-VAL'Ft- 
73 IFF< IORF >7THENt>5 

98 HIRES F--233 PRINK 
HRW17) 

93 PAPER4 M» 7 
86 W--8- X-9 Y-9 A-8 
F0RI-1T07 x< I >-9 v. I 

-0 f¥ I ,- U L . [ .... (-■ I 

>-0 NEXT M-9 
^ MPG0T022SJM ■■'i'- 
22288 22389- 22489. 2.- 
9M EMM 

99 KM 

1W wpwi ii mat 

191 KM 

183 X8-32 Y9-9 -49-I L 

•32 C-0 GOSUB15008 

186 CURSET49.I98 LM8 

849. 8 I 

118 X8-88 V8-44 88-3 

L-32 C-8GOSUB15300 

HI CURSET72.44.0 CMA 

R38-8.1 

us xe-32 V8-44 W-; 
L-i« c-8 Gosueieeee 

116 CURSET36.42.8 CHA 

891.8.1 

128 X9-72 Y9-98 88-3 

L-16 C-9 G0SUBI6598 

121 CURSET69.79.8 CMA 

ns.t.i 

123 X9-28 Y8-69 88-2 
L-22 C-8 GOSUBI 7988 
126 OJRSET21. 71-0. CMA 
953. 9.1 

138 X8-29 ,'8-4i! A9-* 

l-16 c-e GosuBi73ee 

131 CUR3ET19.32-8 CMA 

R34.81 

133 X0-32 YO-44 99-1 

L"I< C-0GO5U8 19880 

136 CURSET30 34.0 C M4 

R53.8.1 

199 KM 

288 KM CHOIX DE LA 

PIECE 

281 KH 

282 H-8 

283 IF6V1 >»B'2.»B<3>* 
9> 4 >*B* 3 >*B/ 6 ►*B» 7 >-2 
9THEM3II09 

287 CLS PRINT PRlMl-u 
UELLE PIECE ESSAYE2-V 
OUS ■>• GETN* 

288 IFB- VHL'M* — 9Tm 
EN288 



218 IFrSC<N8 ■ ■****r v \ 
<MR>>53T*N20O 

212 D8--8- 

213 FORI-1TQ20 SOUNM 
.4288 13 PL*Y9 9 •• 

214 MAIM PtAYl.e.8-9 
MEXTI PLHY8.8.8.9 

213 0M8SC'M»~48ivJTF.l 

888.1188. 1288. 1MM. M 

88.1388. 1688 

299 REM 

388 KN rEPLHCEHEMT 

381 KM 

383 CLS PRINT PRINT-C' 

EPLACEHEMT" 

318 X-8 Y-8 h-o • "*» 

312 IFKE-. 8298-RhCh 
MDKE^ »2n<iM#A4AM'-«e 

■88TMENX— 3 GOT0418 

313 IFKE*<R2O0M*ACA 
«8«K< BM9 — ■-■ ■■■ 

•88THENX— 1 G0T041M 
317 IFKEK<R288»MMA 
■.: p£t», •.-.■- iMHM 
■ 168Tt«M-f-S G0T04I9 
328 IFPEEK<R288>-*B4H 
hWEEX' •>'■•-• -•■ — B 
<1*8Tmeny-i G0T04I9 

322 IFKEK'828e>»89(.fi 
MDP€EK< 9289 .-•«4»*C'V» 
>38TKny— 3.G0T0418 

323 IFPEE>f.92ee»89CB 
MDKDft B209 -« :! -■■ 
>39TMEMY— 1 G0T0418 
327 IFPEEf< 9288 ••96rfl 
II PCS ■.... i n w tftc i' 
'282THEW3 G0T0418 
338 IFKEK82eet-9Bi:« 

MPKEK( 9289 «• 38HMI'>'8 
<282TMENX-1 G0T0418 
333 |FPEEM92e8-9'»lT 
HEHft-1 GOT0418 
348 !FKEK<92«0»992T 



343 lFPEE>'92e8>-88?T 

HENM-l G0TO3888 

338 IFKE*' 8298>MfleT 

MEMHIKS POINTCMR^ir 
> G0T028 

333 IFPEEK(9288HMWeT 
HENI9888 

368 lFKEK(9288»9e3T 
MEMHIKS TEXT PRINTCH 
RW6) END 

363 IFPEEK(9288Mi9e6T 
IPBl— 
483 IFFEEKt92«e»e38N 

WfRK' •299 >-»38TKN i 



88 17888. 17388.18888 
41? D0T0316 
999 KM 

1808 KM PIECE 1 
1881 REM 

1918 P-I3 X8-32 V8-8 
88^ L-32 X-8 Y-8 C-8 
G0SUBI3888 

1828 P-253 X8-162 V8- 
38 88-1 G0SUB13888 
1938 G0T0388 
ID) tf» 

,l(»f> RFi^IF- t- .= 

1191 KM 

1118 P-13 X9-98 Y9M4 

88-3 L»32 X««V8i-« 
9 GOSUBI 3389 
:i.>i> OOTl l«M 
1199 KM 

1288 KH PIECE 3 
1281 KM 
1219 P-13 X8-*.» V»rt4 

MHr7 L-16 X-8 Y-8 C- 

8 C0SUB16999 

1228 wto i ere 

1299 KM 

1388 REM PlFif 4 
1381 KM 

I 'If P-l^ X»«7,' YVHMtH 

**»-? l-16 >'-8 v-« r. 
B r/KtjeK388 

I .,,,, ■,.,•■.;,. ,. 

1399 REM 

1488 KM PIECE * 

1481 KM 

1418 R*I3 X8-28 V8«<8 

88-2 L-22 >:•« Y-8 C- 
8 G09UB17999 
1428 GOTO 1828 
14«9 KM 

1388 KM PIECE 6 
1381 KM 
1318 P-13 X9-28 Y8-4rt 

88-3 L-16 X-8 v^l C- 
GOSi.e 17399 
1328 P-233 X8-162 Y9- 
49 «8-l GOS"J81738<* 
1338 WT0398 
1399 KM 

1680 KM PIECE 7 
1691 KM 
1619 P-13 X9-32 Y9-64 

«9»1 L«16 X*9 Y-9 C" 
8 G0SUB19899 
1628 P-233 X8-162 Y8- 
48 89-1 G0SUB18999 
1638 40T0399 
1999 KM 

2908 KM PIECE BONNE 
2681 KM 

2893 WJSIC1. 3. 1.1399 
MUSICS. 3-3- 1399 MUSK 
3.3.8- 1398 

2986 PL8Y7.9.7.8 U8IT 
:#w PLAY9 | | g 
2018 I-V«L-M8» 8*1 -I 
2029 0NIG0T02188.2138 

2288 2238. 2398. 2338 



2128 WSi.ei3888 

2139 G0T02388 

2149 KM 

2138 KM PIECE 2 

2131 KM 

2168 X<2<-X8 Y'2»YU 

* 2 -88 L< 2 ML 

. : i-.> GO9US19909 

2188 WT02388 

2199 KM 

2299 KM PIECE 3 

2281 KM 

2219 X<3>-X9 Y< »-'>e 

9. 3 MA9 L< 3 m. 

MX GOSue 16888 

;; M Ti OH 

2249 KM 

2238 KM PIFCE 4 

2»1 KM 

2269 X< 4 «X9 V 4 >-V8 

AT 4 MtftB L' 4 »L 

fgn o i -!•■-■.■ 

M G0T0S9H 

2299 KM 

2399 KM PIFiE ', 

2381 KM 

2319 X(3MX9Y<3MY8 

fl<3M*19 L(JK 

.'320 BOaWITMt 

turn c ori m w 

2349 KM 

2338 KM PIECE « 
2331 KM 

2368 X<6*-X8V«MYe 
m t. 'wA9 , l I 6 ml 
2379 GOSUB 17389 
2399 GOT02388 
2399 REM 

2480 REM PIECE 7 

2481 KM 

2418 W 7 MX9 ■ ft 7 >«Y9 ■ 

8<7M«9.L(?)-t 

2429 GOS>J0 18009 

2438 G0TO2398 

2399 IFBX IM1RNO0<2m 

29N0BO '- 3F9C0X 4 >-48N 

DaTIMEMllM 

ESI* GOTr.288 

2999 KM 

3808 KN PIECE MMUVft 

I3E 

3001 KM 

3083 PLBY1. 9.9.8 FORI 

•4189T03999STEP3 SOUN 

01. 1. 13 

3886 MEXTI PLAY8.8.8. 



IMC 0NMC- f-9 -43,-1:^1. 

815990. 15398. 16888. 16 

389.17099,17389.18090 

3813 P-253 

3929 0HbSC<M8>-49GOTI3 

3198. 3130.3280 3230.3 

399. 3359. 3499 

3899 REM 

3188 KM PIECE 1 

3181 KM 

nil •?•*,"' <•--. H»>i 

L-32 

3128 GOS1J013888 

3139 COT029O 

3149 KM 

3158 KM PIECE 2 

3151 KM 

3169 X9-90 Y8-44 wo-3 

31W GOS»jei3308 

3198 GOT 0288 

3199 REM 

3299 KM PIECE 3 

3281 REM 

3219 X9-3S Y9-44 90-7 

t-16 
KM DDE BUM* 

3249 KM 

3239 KM PIECE 4 

3251 KM 

'.;^8 0W2 ■■'•■"■ tmt 

i-16 

On OMUtlCSM 
3290 GOTO208 

3299 KM 

3300 KM PIECE 3 
3391 KM 

Big ■■•«•■■• •'•*- DM 

L-22 

MM GOfJUBI ■8M 
3338 G0TQ288 
3349 KH 

3358 KM PIECE 6 
3351 KM 
3369 X9-28 Y9-48 H8-. 

L-16 

mm spfuti ym 
1 .ad ootomi 

3399 KM 

3499 KN PIECE 7 

3401 KH 

3418 X9-32 Y9-64 88-1 

L-16 
MM 61 MIM08 

MM SOTOM0 

14999 KM 

15000 KM PIECE 1 
13991 KH 

15910 P9TTERNP 
13815 IF98-9TMEM88-I 
I59S9 ON80GOTOI5838.1 
5949. 15959- 13969. 1507 




ERRATUM sur ORIC 
BOITE A RYTHME du if 73 
Si vous trouvez que Ie pro- 
gramme Boite a Rythme de 
Mr ROSSI ne fait pas beau- 
coup de bruit, c'est normal, il 
y avail une inversion entre 
les iignes W el W 

16 K«0 -klMFRFR K^*iF 

810 COT o^e 

18 K>1<K1-«FB14K2««F 

B2R 



131H 

RMI.9C0.LB6I C-DtM-L 

•*C0*SI >. Lt< CO-SI ).C 

15120 08MULt<SI-CO>.- 

Li'C0*SI >-C t)R8H2*Ltc 

0-29LISI.C 

15125 IF(M-1 Bt*X8>89 

>0RP-13TMENKTL«H 

13138 IFC-1TMEMKTURN 

15149 X9-X9-X Y9-Y9*Y 

99-*8*« C-Cl 
15138 GOT013828 
13499 KM 
13508 KM PIECE 2 
13301 KM 
15518 GOTO13008 
15999 KN 
16099 KM PIECE 3 
16991 KM 
16010 GOTO150O8 
16499 KM 
16599 KM PIECE 4 
16501 KM 
I0910 GOTOtSm 
16999 KM 
17888 KM PIECE 3 
17901 KM 
17918 P9TTERNP 
17013 IF88-9TMEMR0-1 
17929 OMR9GOTO1703O.1 
7949. 17058.17968.1707 
8,17998. 17999. 17198 
17838 CO-1 SI-8 G0T01 
7118 

17848 CO-22'32 S1-22' 
32 G0T017118 
1?050 CC-9 SI-l GOT01 
7119 

17868 CO— 3/4 SIO'4' 
C0T017118 

17878 CO— I SI-8 GOTO 
17118 
17989 CO— 3'4 St—3'4 

G0T017119 
17999 CO-0 SI — I GOTO 
17119 

17199 CO-3'4 81— 3'4 
17118 O.'RSETXe.Ye.O P 
RfW.tC0.Lf SI. 9 DR9U-1 
«C0*SI '.II' CO-SI >.C 

17120 DRMLCC SI-CO >.- 

L«C0*SI>,C M»9U2»! tr 

O.Z«LBSI.C 

17125 IF(H-I 8N0X0>89 

>CHM>-13TMEHKT'JRN 
17138 IFC-lTHEMKTUfm 

I 7140_ X0-X8*X Y9-Y9*Y 

I71M G0T01MM 

17499 KN 

17588 KN PIECE 6 

17501 KM 

17516 PflTTERNP 

17515 IFft8-9TMENfte-1 

17529 0HH9C0T0I7539.1 

7540,17558.17560.1757 

0.17580.17599.17688 

17538 CO-i SI-8XD— 3 

2 YO-16 GOTO17610 

17348 C0-22^32SI-22' 

32XIM-33 YO— 11 GOTO 

17618 

17338 CO-0 ■ SI-l XO— 1 

6 YtM-32GOT0176IO 

17360 CO— 22'32 SI-22 

^32 XD-11 YD— 33 GOTO 

17619 

17578 CO-- 1 SI -9 X»>3 

2 YD— 16 GOTO! 7618 

17599 CO— 22^32 SI— 2 

2'32 xC-33 VOM'GOTO 

17619 

17599 CO-9 $1—1 X»I 

6 YD-32 G0T017618 

17699 CO-22'32 SI — 22 

'3SXD— II YO-33 

17618 CL*SETX8.Y8.8 

RfW.tCO.L«SI.C DR8W-L 

« CO-SI ).Lt< CO-SI 'C 

17628 D*MMXD*LtSI.YD- 

LtCO.C DR8M-LIC0-XO.- 

LW-VD.C 0R9w2iLtC0 

28L98I.C 

17625 IF(H-l 8NDX8'89 

<0RP-13THEl*KTURM 

17638 IFC-ITMEHKTU8H 

17640 XO-X0*X Y0-Y8-Y 

I7CM OOTOI •■>■■• 

17999 KN 

19000 KN PIECE 7 

18001 KH 

19018 PBTTERNP 

19813 IF99-3TWEM88-I 

18828 0N88G0T0 1 9939.1 



I IV 
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15939 CO-1 SI-8 GOTOi 

5119 

13948 CO-22'32 31-22' 

32 GOT013119 

19899 CO-0 51-1 GOT01 

5110 

15068 CO— 22'32 SI-22 

'32 G0T013I18 

15878 CO— 1 St-0 GOTO 

15110 

13989 CCM-22^32 SI— 2 

2'32 GOT013119 

15999 CO-9 $1—1 GOTO 

15118 

15188 CO-22'32 SI— 22 

--32 



|9J 



I CO-l Sl-0 GOTOI 

19040 CO-22/32 $1-22' 
32 

19119 CUMETxe.Yp.o D 
tfW.tCO.LtSI 8 D88U-L 
KC0»tl).Lt< CO-tl >.C 
19129 DfHW.«<SI-COi.- 
^«C0-5I).C WWW,* 'CO 
•SI ).Lf<SI-C0>.C 
19122 W»fla.f(CO-RI '.L 
t( CO-SI >.C 
19125 IP'M-1 RN0X8>89 

•0RP-13THD4KTIJRN 
18139 IFC-lTHENKTiON 
19149 ,(.'-■»...: .-...,>. . 

98-A0'9 C-r.i 
18159 G0TOi9«in 
19999 KM 

iwoe Km SI EFF8CEM 
EMT 

19991 KM 

19993 XA-X8 vft-ve 8ft- 
A8LA-L 

19004 PLPVl.O.O 9 
19983 F0SI-1T07 P-233 

19886 F08R-8T05 MUSK 
1 R 1 1588 NEXTO 
19818 IPX! I M8THEHI90 



1 9828 X9->:< I ' Y8-Y- I i 
A0-B* I) L-L*I ' 

19939 0NIC0$i*l39*n \ 
5380.16808.16580 1788 
0.17500. 19090 

19940 r*ExTI 
I994S PL8Y0. 9,9.8 
19058 X8-XR Y8-Y8 88- 
88 L-L8 

154Jt8 GOTi-jOO 
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29995 D88M)«.e,| DRAW 

IS. 16.1 

28813 0R8U-I6.I41 DR 

RM-16.8.I 

26023 PR8U-16.-1* 1 f 

88UI6.-I6.1 

20043 KTiJPW 

28899 KM 

29188 KM FIGURE 2 

29191 KM 

29185 DfMU-8.9-1 t*9U 

8, -8.1 DP9M.8.1 

29118 Wr8U-B,9.1t*8M 

-16.16.1 WW**. 16.1 

29113 G0T029125 

7969 88.8,1 DR8U16. 8 

1 WWW3.-8.1 

7869 89.8.1 DB8H16.9, 

1 DR8W8-8.1 

28123 WKW98.1 DR8U1 

6.9.1 WWW8.-0.1 

28133 WWW9.-16.1 088 

U-1S.-1S. 1 

28145 KTi.«H 

28199 KM 

20298 REM FICUK 3 

29201 KM 

29293 DR9MIS.-1«,1 N> 

AMB.5.1 

20213 W»«M33.8.I WWW 

9.22.1 

28223 W»«H-33.e.! C*« 

US. 31 DR9W-16 -i-= 1 

29243 KT'JPN 

28299 KN 

28388 KM FIGUK 4 

28381 KM 

28383 0RMU24.24.1 088 

U-24 . 24 . 1 DRMM-24 . -24 

28313 0R8U24-24.1 OJ 
RSETU4.Z4.1 WWN5.t 1 

2632S i*fiwa.22 i :*a 

-3.3. 1 WWW*. -32- 1 
20343 KTURH 

29399 KM 

29499 REM FIG'JK 3 

29401 KM 

20405 WW4U6-16-1 t*ft 

H-16.|«.IDRfiU3.31 

20413 WMH-22.0.1 DR8 

H3-3.1 DR8M-16.-I6.1 

20425 t«8U16.-16.I 0« 

AMS.e.l t*MU8,-9. I 

20443 KTURM 

20499 KM 

29590 KM FIG'JK 6 

28591 KM 

20505 DRAW. 9. I DRAVI- 

8.8.1 MW444.4.1 

29519 WJ9U16-9-1 C4W*I 

8 i6i oeAwte.iei 

28513 DRAU-32-8.I 088 
M-8.-9.1 DRAM0-16I 

29520 DRAM0 -8.1 OtAU 
-6.-6.1 DRAMS. -6. I 
28523 C'JRSETW- 24 I 
20533 DRAMS. -8- 1 t*AM 
-16. 8. I DRAMS. 8- I 
20343 KT'JRN 

20599 KM 

29699 KM FIQjRE 7 

20601 KM 

msm Divsoa » i I--- 

•16.16.) 

20613 [*AM-3-31 f*A 
MO, 12. I DRAMI2.8.1 
20625 DRAM-5.-5.1 WW» 
U16.-16. 1 DRAM8 .32 1 
20635 DRAM-34.9.1 t4H» 
W8. -33. I 
28645 KTURM 

21999 KM 

22000 KN FIGUK 1 i 
DJ 

22991 KM 

22003 CUR5ET1O0.1291 

CURSET140,60.l 
22919 CURSET148.132 1 

CURSET204-I20I 
22813 njPSET172-98.I 
CURSETI72, 152.1 
IMM CtSI Sffjf. 141 : 
22835 GOSUB29880, 
22848 G0T0198 

22099 KM 

22100 KM FIGUK 2 ' 
EU 

22101 KM 

22105 CURSET162.88.I 

OJRSET162 64.1 Ci*SET 

146.88.1 

22118 CJRSET178.88 1 

CURSETi30.li;. 1 ' L*Gt 

T196II2.1 

22115 CURSET130144I 

DWSET196. 144,1 CURS 
ET146160 1 
22120 CL»SET179.1*0.I 
22123 CURSET32. 136.1 
22130 G0SUB20188 
221 35 G0T0190 
22199 KM 

22299 KM F!r.ijK ^ p 
EU 

22201 KM 
22205 CURSETI90140 1 

CC*SET132.I88-1 
22210 C'JPSETl»2 172 1 

CURSET199I181 
22215 CURSE T l 98. 142 1 
22220 C'.«RSET12 140 1 
22225 G0SUB29299 
22238 GOT0199 



EU 

22301 REM 

22305 CJRSET162 90 1 
CURSET2J0. 129.1 
22319 CURSET 162. 176.1 
CURSET114. 128.1 
22315 CURSET52.1361 
U4-44 24-144 
22329 GOSUB20398 
22325 GOTOI 99 

22409 KM figuK 5 J 

EU 

22491 KM 

22493 CURSET170.99.1 

CURSET 1*6. 99-1 CURSET 

114.122.1 

22419 CUR9ET2I8 122.1 

C'JRSET148.IS9.1 CUK 
ET1S4.16S.1 
22413 CURSETSS. 126.1 
IMM B0SUIM4M 
22425 GOTO100 
22499 KN 

22388 KM FIGUK 6 J 
EU 

22381 KM 

22303 CURSET 130.60. I 
CURSET120.76-1 CURSET 
132.76. 1 
22310 CLfPSETI 16. 184.1 

CURSETU6. 136.1 CURS 
ET176.109.I 
22515 CURSET 132. 132.1 

CURSET196.132 1 CURS 
ET219. 135.1 
22520 CURSET24. 128.1 
W6-58 26-166 
22323 G0SUS29599 
22530 GOTO 199 
22599 REM 

22689 KM FIGUK 7 J 
EU 

22691 KM 

22693 CURSET 129. 99-1 
CURSE T 1 84 . 89 • I ■ CURSE T 
166. 82.1 
22610 DJRSET186. 146.1 

CURSET129.14S.I 
22613 CURSET28. 136.1 
22629 GOSUB20600 
22625 GOTO 199 
23999 KM 
24800 KM SOLUTION 
24991 MM 

24919 0HFGOT024198.24 
298 . 24309 . 24498 - 2438P 

24688. 24798 
24099 KM 

24190 KM FIGUK 1 S 
OLUTIOM 
24101 REM 
24195 PATTERN 178 
24119 CUR5ET72 156 1 
DRAW- 32. 9.1 0RAM16-1 
6.1 



61 

24130 CURSET40- 140-1 

DRAMS. 8.1 

24149 CURSET49.172 ! 

DRAMS. -16.1 

?*:•■$ a IOM6M 

24199 KH 

24299 MM Fl . <•. 

OLUTIOH 

24201 KM 

24283 PATTERN! 78 

24218 CURSET52.1361 

0RAM9.32.1 CXJAU16.-16 

.1 



MM! WMKT5J |«0J. | 

DRAM-9.9.1 

24249 CURSET36. 168.1 

DRAMS. -8.1 

24259 G0T025888 

24299 KM 

24380 KM FIGUK 1 s 

OLUTIOH 

24391 KM 

24305 PATTERNI79 

2431S CURSET28. 129.1 

DRAU22.22.1 0RAM8.-11 

.1 DRAM-ll-lll 

24320 CURSET39.1481 

DRAU22.8.I 

24339 CURSET58 148.1 

DRAMII.-ll.l 

24348 CUMET20129 1 

DRAMS. 22.1 

24358 GOTO25O08 

24399 KM 

24499 KN FIGUK 4 S 

OLUTIOH 

24491 KM 

24495 PATTERM179 

24419 CURSET32. 136. 1 

DRAM9.I6.1 

24428 CUKET68.144.I 

DRAMS. 32.1 DRAU-8-e 



1*1 

?444L. BOnOMM 

24499 KM 

24598 KM FIGUK 3 9 

OLUTIOH 

24591 KM 

24595 PATTERHI79 

24319 DJRSET60. 129-1 

D«AM9.32.i PRAM- 16 -1 

C.l 

24520 DRAMS. -8.1 CURS 

ET32 132-1 DRAM-8.8.1 

24538 DRAM8.-I6 I DRA 

M-0.-S.I DRAM8 14- I 

24340 GOTO25008 

24399 KM 

24688 KM FIGUK 6 S 

XUTIOM 

24681 KM 



24695 PATTERN! ,*9 
24610 CURSET14.I42I 

DRAM8-9.1 W»AU0.1f 1 

24629 DRAM16.-16. t DR 



,;464P 5QTCU89M 

24699 KM 

24788 KM FIGUK 7 S 

OLUTIOH 

24781 KM 

24793 PATTERN170 

24710 CURSET20. 134.1 

DRAMI1 11 1 DRAU-ll I 

24720 DRAM1I.0I DRAM 

11-11. 1 

24738 rijRSET39-14^.l 

DRAMS. 22.1 

24748 OJRSET6I-169.1 

DRAM-11.-11 1 

25888 CLS PRImt PP1NT 

'V0ULE7-V0US ESSAYER 

DE N0UVE8U no/Hr 

23010 G0T031125 

49999 KM 

-e89-> MM MKMTHTI 

ON 

59001 KM 

^90O3 PPlllTCHftf 12 I F 

0RI-8T013 P0KE49939-I 

.32«XTI 

59905 GO*"" 

39910 P0KE46392-12 PO 

KE4C593-39 F0R5-1TQ4 

POIfE46393*S . 43 NEXT 

58020 P0*E46598 . 38 P" 

"E 46399- 33 

59939 PRIMTCNR8' 1 2 ) P 

APER3 I MX 9 



59050 F0Rl-lTOLEM.Wf 

50060 PL0T3. 11.10 PLO 

T3-12.10 

30970 PL0T4.11.RICWTR 

(M9.l> 

39975 PL.0T4.12.RIGMT9 

(191,1) 

59999 SOUNP1.50-I.12 

w?9e WITS 

50109 MEXTI 

50110 U8IT20 SOUMOl.S 



58138 PLOT4.23.00 

50199 KM 

50200 KM AIR MUSICA 
'L 

30281 KM 

-.92 10 KPEOT 

50220 KAOO 

50230 IF0-13TMEM38258 

58248 IF0-9TMENS9299 

59243 MUSICI.4.0.19 

38258 UHIT29 

59253 UNTILFALflE 

38278 DATAI. 10. 13.3.6 

.63,1.13.3.1.13.1.3. 

3.6.6.6.10.8.13. 13-13 

.13.1.10.13 

59200 DATAS. 0.6. 3-1.1 

3.3.1-13.1.3.13-3.5.3 

-1-6.13.0 

59299 KSTOK 

59399 SOUHDI.9.1 

50310 M-U*l IFU-1GOT0 

S9619ELSEGOT0I9 

50499 REM 

59599 REM CMOix KGL 

ES OU JEU OIKCT 

59501 KM 

50519 PLOT4.20.--t R» 

«!•■ du '•"' 

59520 PL0T4.Z2.--2 M 

v direct* 

59530 GETC9 C-VAL«C9> 

59540 IFC'10RC>2TMEM3 

0516 

-."--• OH G irrjflMM *■« 

569 

50569 HIKS PR1NTCHR9 

■ 17 ■ SOTOM 

58599 KM 

59699 KM KaES 

59C9I <^-i 

59619 a$ PAKR2 |1*4 

59620 PL0T3.I.I2 
30630 Y9--KGLES DU j 



39679 PRINT-TANGRAH • 
•t on f«u cHtnoia don 
t In- 



fill." 

99999 MAIT499 CLS 

59969 PRIMT 

39878 PRIMT-APPUYER 

UR UNE TOUCME" 

50753 GETV9IFWSO- 



38738 PRINT-*©,* -2 
OrjncH trltrrtlM * 
50748 PRINT- -i 

trnn«l« iw»«^- 
50750 PRINT" -2 

" ' - .... 

30760 PRIMT- -| 

ev*P9* 

59779 PRINT- -J 

p4i**ll»lrrtjr.Mn«- 
50780 PRINT PRINT-Att 
•ntlOTi Chi4u« flOur* 



30790 PRINT-7 P19CR8. 

30795 PRINT PRINT PRI 
NT PRINT PRINT 
30888 PRINT PRINT PRI 
wT-APPltYER SUR UNE TO 

59905 GETT9 IFT80—T 

MEN59818 

50818 MIKS P0"E618,1 

B 

39913 CURSET 12. 8. 8 OR 

8U64.6.1 DRAH8.64.I P 

RAM-64,8.1 DRAM8.-64. 

1 WWWS4.64.1 

3982S CURSET76.8.1DR 

AM-49.46.1 DRAMS. -32. 

1 CURS£T12.48,1 DRAM1 

6.16.1 

58923 PRAM48.-49.1 CU 

RSET28.56.I PRAM 16. 16 

1 DRAM16.-t«.t 
30838 CURSET43.19.6C 
MAR49.0,! 

39S32 CURSET38.39,9'C 
HAR5S.9.1 

38034 CURSET 33.368'C 
HARSl.S.l 

38836 PJRSET37.63.S-C 
MAR52.0.1 

30938 DJR$ET23,62.9 C 
HMRS3.6.1 

SM49 CURSET28.32.B C 
MAR54.0.1 

59942 CURSET43.54.9'C 
MAR53,0.I 

50850 PRINT-Vous r*N 
r4u«r«- 404 l»» «* 14C* 

50868 PRINT-ftont »■■ 
£ty>i*l«* iu hi|i'l" 
38645 UAIT488 CLS 
50866 PRINT-Eo tff*! 
10^t4u'«ll«l lont i»i 

59967 PRINT-C4ll«s-Ci 



39873 GETV8IFV80--T 

NEMMM 

3MM TEXT POKE* IS. 18 

39993 F0RI-8T03 POKE4 

S839-I.32'HEXTI 
50698 RL0T3.1.12 

•c?9^ ■■■•■'■cf--,, r- DC r 

EPLACEMEWT- 
59918 PL0T11.1.Y8 
56920 PRIMT. PRINT PRI 
NT PRIMT*Utlllt»r l*t 
T1tch«« Pour U (MP) 

• C4-- 

56930 PRIHT-««nt.A»Po 
■»r »ur 1* toucH* SHI 
FT d»* 

30932 PRINT*9*uch« an 
-••• t»M»» «u* %vr u 



50934 PRINT 

38935 PRINT-Toucfw R 

- rotttlon <* 45 drtr 

59948 PRIMT-ToucM B 

- Pivco bonrw* 
39943 PRIMT -Tooth* M 

■ *1*C« MUVIIIt" 

39950 print-touch, a 

- «nfwl«tlOn tOt4l»* 
50953 PRINT-Toueht ^ 

■ annul«tlon du J«u* 
30960 PR] NT -Touch* E 

• 4fflCh4 <M MOUV44U 

It* * 

50963 PRINT "tr seta •>. 
1 luriUnt Pu 9tr* tf 

50970 PRIMT-lora du d 
.».-•• d'un* P14C 



30988 PRINT PtIMT. PRI 
MT"L9« Polntt dOhh»nt 

1' t-PliC4"4i>t Ou* 
50995 PRINT-voua dov* 
t <i ."' t« flOur*. 

59999 PRIMTPRINT PRI 

HT PRINT 

30999 PRIMT-BPPUYER $ 

UR UNE TOUCNE* 

50995 GETX9 IFX90--T 

HEHSI9M 

9I9M TEXT inks HIKS 

-PRIMTCMRJX 17). GOT 029 

31999 KM 

31100 KM FIN 

31101 KM 

31118 PRINT-LA FIGUK 
EST TERHIMEE.VOULEZ- 
V0U9 EM* 

31129 PRINT-ESSAYER n 
ME MUTK» (0^)' 
31125 UAIT1S0 
31139 GET08 IF08--0-T 
MEMHIKS PPIMTrNRO' 17 
> C0T029 

31148 IF09--N-TMEMTEX 
T PRINTCHR9<6> END 

31156 C0T051139 
69898 FORI-128OTO1350 



MOON RAMBLE 



CANON 



•'■ 



Dans un decor lunaire 
Un engin temeraire 
Poursuit avec fureur 
Son chemin vers atlleurs 



Mode d'empioi 



Yves BURGALIERES 



Ce jeu tourne sur des CANON de loules configurations memoires 
et nous tenons a vous signaler qu'il est assez ETONNANT • 
Tout d'abord. tapez le programme MOON l en prenant soin de bien 
verifier les DATA et sauvegardez-le: Tapez ensuite MOON 2 avec 
un som extreme et sauvegarde*-le a la suite du premier 



Chargez le premier programme el attendee apres RUN l apparition 
du curseur pour charger le second 

Vous possedez 3 tanks au debut du |eu et pouvez en acquenr un 
autre lous les 5000 points Le tir vertical et horizontal de vos canons 
lasers. setfectue pa* appui sur la barre despacement Vos deplace- 
ments droite. gauche s'eftectuent a (aide des touches - el • et le 
saut de voire tank par T 

Pendant le deroulement du feu. lindicateur numenque en haut a 
droite de lecran vous signale la temperature de vos canons gra- 
duee en centame de degre Celsius 

A chaque tir. cette temperature augmente de 1 00" C a 900* C. 
i mdicateur de surchaufle vous signale qu ii est temps d arreter 
les trais Ouelques instants sans lirer permettront a cette tempera- 
ture de redevemr normale 

Le saut de tout obstacle vous octroie 60 points el chaque tir reussi i 
50 points 



ERRATUM sur CANON X07 
EUDIPE du rf 72 
L impnmantg tail des siennes. 
la prochame lots cast la 



3020 DATA67, 68, 74,29, 
43, 29, 3F, 31 ,39,38,33 
3040 DATA61 ,6E,3F,53, 
74 , 63, 70, 68, 61 ,6E, 63 





420 FO»*r« I 133i -•240, 1*2,0,144,0,0. 



10 REN < Moon | > By Y. lu»«.*l t*r*» 
28 »u» Dupont 4* I 'Cur* 27400 

Louviim 

20 CLEAA3O,*4**:n-*30O:OOSUB1SO:OO 

SU130 : 001UB30 : 00T01 10 

30 POKEH,2S4:POKEm*i , 233: POkEH> 2, 

0!M-H*3 

40 Reada: if»-othenpokeh.o:pokeh.i , 

0:h-m*2:RETURN ELSEIFA-1THCN70 

90 F0RI«144T019OSTEP2:POKCH,A:P0KE 

H*1,I 

40 **OMtH*>, A* I IP BMI W3, I * 1 1 Ifr MM I H 

extioot04o 

70 pokeh,25i:RE*da:poken*i,a:pokeh 

•2, 137:P0KEH*3,A*32:POKEH*4, is* 

BO pckEm.3,».64:pd-:eh.(,, l3e:PDKEH- 

7,233!H-M*8:GOT040 

*0 DATA 37,38, 3*. 40, 41, 42, 43, 44, 74 

,77, 1,77,43,43,0 

100 DATA 116.113,82,81,48,47,78,77 

,1.77,43.43,0 

no h*7ooo:a-i37:b>13«:c-o:v-4:oos 

ubsso 

120 a-142:*-143: y-3:0osubs8o 

1 30 a> 1 38! b- i 3* : c- 1 34 : y-4 : 00subs80 

140 A-140iS-0:C-0:V>3!OOSUBS80:A»l 

4 I : O0SU1S80 : A» 1 43 : 0OSUB380 1 GO TO* 80 

130 FONTS! I 261 --O. 0.28, 124,232, 10 

0,0, «•* 

1*0 FONT* I 129I-M28, 128. 1*2,232,24 

O, 144,8, 1*2* 

170 FONT*.) 130)*-O. 0,28. 124,232,48 

.o.ioo- 

180 FONTS! 131 >-- 12B, 12B, 1*2.232,24 

0, 1*2,8, 144- 

1*0 FONTS! 132) -*9, 0,28, 124,232,24, 

128,7*' 

200 FONT*!133l-*l28, 128,1*2,232,24 

0,«*,0,4S* 

210 FONTS!134l-*0, 0,28, 124,232,7*, 

128,24* 

220 F0WI8U33I--12S, 1 21, 1 S2. 232. 24 

0,48,0,**- 

230 FONT*! 13*1 -'232, 232, 232, 232.23 

2,232,232,232* 

240 FONT*ll37f>*0, 4, 132.204, 234.23 

2.232,732* 

230 F0NT*I13S1»'0, 12S, 1*2, 1*2.224, 

248,232,232* 

260 FONT*ll3*>-**,4, 12, 28,*0, *0, I 

24,232- 

270 FONT* i I40i --S, I 12, 8,0,8, 112,8, 

0* 

280 F0NT*M41)-*14,46,3*,120,120,I 

24,232.232* 

2*0 FONTS<142)>*12, 40,60,60, 124,12 

4,232,232* 

300 FONT* I 143] ■- 128,240,240,248, 24 

8.232,232,232' 

310 FONTSII44I-M2, 20, 32, 44,32,20, 

12, 0" 

320 F0NT*II49>>*224,I«,13*,124, 13* 

, 16,224,0* 

330 FDNT*I 1461 --0,4,8, lt,t, 4,0,0' 

340 FQNT*l!47l-*12a,*4, 32, 14,32.44 

,128,0- 

330 FONTS! 148)-* 12, 14,32. 124,32,1 

4,12,0- 

340 FONTS I 14*)** 224, 80, 134,4, 134,8 

0,224,0' 

370 FONT*IISO)--12, 6,8.12.8, 8. 12,0 



430 FONTS! 13*1 -'32,32,32,32. 32,32 
,32,32- 

440 FONTS! 137) --0, 13*. 1*8,21*. 148, 

134, 148.32* 

430 FONTS! 138) -*4, 1 3*. 80, 3*. 1 12, 40 

,*8, 128* 

4*0 FONTS! 13*) ■•144,72, 3*, 144.72,3 

*, 144,72* 

470 F0NT*!224>-*292,204, 180, 180, 18 

O, 180,204,232- 

480 FONTS ! 223 > ■ ' 232 , 23* , 204 , 23*. 23 

*,23«, 19*, 232- 

4*0 F0NTS!22*)--232,2O4, 180,244,23 

t.. 220, 132,232- 

300 F0NT*!227>>*292, 132,244. 23*. 24 

4 , 1 80 , 204 , 232 - 

310 F0NT*!228)--232, 188, 188, 188, 17 

2, 132, 23*. 232* 

320 F0NTSI22*l-'232, 132, 188, 140,24 

4, 180,204,232* 

330 FONT*<230>-'232,228,220, IS*. 14 

0. 180,204,232* 

340 F0NTS!231)--2S2. 132,244,234,22 

0,220,220,232- 

330 F0NT8I232I -"232,204, 180,204, 18 

O, 180,204,232* 

340 F0NT*!233l-*232,204, 180, 1*4,24 

4,244,204,232* 

370 RETURN 

380 pokeh,2s4:pokeh*l,232:pokeh*2, 

o:h-h*3:d-U*-32*iv-4) 

3*0 for1-0to21: if1 >1 andcoothenpo 

keh,d-i*2:*>0keh*1,c:h>h*2 

400 ifi<20thenpokch,d-i:pokeh*i,a: 

H-H*2 

410 IFK21 ANDDO ANDBOOTHCNPOKEH 

, D- 1 • I ! POKEH. 1 , B: N-H>2 

620 1F1-0 ANDB4 >0TMENP0KEH,233:m-H 

*30 IFI-19 ANDBOO ANDC-OTHCNPOKEH 

,232:h-H*I 

640 IF 1-19 ANDBOO ANDCOOTHCNPOKE 

II.MIIIWIU 

*30 IFI-1 ANDCOOTHCN*>OKEH,231:h-h 

**0 IF1-20 ANDC< (OTMCNPO-.EH, 232:h- 
H*l 

*70 n8xt:*>okem.O!*>okeh*i,o:h-h*2:r 
eturn 

*80 T-OI 1-7301 J-01N-7300 

**0 READA*!V-VAl. I-*H'>A*>: IFV<73*T 

HENPOKEH , v: T-T * VI H-N* 1 S OOTO**0 

70O IFVOT ANDVi )327*7TmEnCLS:P«IN 

T'Err.ur L l(jn*> I t • JS10EEND 

710 IFV< >327*7THENJ-J>l!T-0:0OT0«* 

720 FORT-4907T04*34:POKET,49:NCXT: 

F0AT-A90I T0**0*: POKE T ,01 NEXT : END 

730 DATA D3,7C,23,FC,FF, J0,7,3€,3, 

FD.77,2, I8,F3,FE,FE,20,4,3E,0, I8.F 

3.9C3 

740 DATA FE,FD,20,7,3E,2,FD,77,0, 1 

8,C0,FE,FC,20,4,3E,I, 18.F3.FE ,F8,A 

2F 

730 DATA 20,4, 3E, 3, 18, EB.FE, 0,28,2 

*,FD,44,0,4E,CS,CS,F3,CB,3F,CB,3F, 

CB.9C3 

7*0 DATA 3F,CB,3F,CB,3F,4F,F1,C8,A 

F.CB,17,CB.lF,o7.CD,FD, ID, CI, El, 23 

,76, CCA 

770 DATA 23. 10, DF, 3,21, Dl , El, 73.23 



O.CB, I8,CD,E3,ED,4B,4*, ID, 21, 1,14, 

CD, 801 

810 DAT* FD,ID,El,lB,E4,3A,JF,ID.F 

E,F0,28,»,C*,1E,32,3F, 1D.D3.F2, IB, 

■*,*!* 

820 DATA ED,3F,CB,3F,CB,3F,CB,3F,C 

B,3F,CB,3F,CB,3F,FE,O,20, 1 , 3C, D3.F 

3.3E.AC7 

S30 DATA O, 18,EO,E3,43,*C,2*,0,2B, 

11, 0,2, El, l», U, 14,0, 1*. 10.F0.7E.F 

E.0.6BD 

840 DATA 20,49,79,FE,8C,20,*,71,0, 

0,C3,D,1F,FE,VC,CA,C, IF ,FE, 8E, 3E, 

,MI 

DATA 20. ID, 21, E3. IC.O.0.3E, 



30 DATA 70. ID, 21, EJ, IC.0.0.3E, 1.0 1(l0 F0I 
0,C3,F.7,1F,23, 10,FD,FD,73,FE.F0,8 >«|*f**f! 



I 10O6UB740 

80 CONS0LCO,4:LOCATE2,0:POKE39Q8,P 

EEK 17483) lEKEChHCOBD 

*0 P*lNT-Seor« : *|B*I !L0CATE2, 1 

100 POKEA900, FECK t .900 I - I *D: H-FEEK 

'69001 : A*-STRSIHI i 00BUB740 

110 FRINT-Tanh* 1 ■ 1 B* 

120 J-!NTIRNDI1)*2>:0UT2*3, *: IF INK 

CY*< >*-THSNlFH-OTHCNl*0ELSES0 

130 F0RI-0T0233STEPI0:0UT242, IINEX 

riwtoiao 

140 BEEPO, 1 :60SUB230! IFf>< -B<2> THEN 
230ELSE IFS< -810) THEN180 

SO J-0!N-3!T-1» 
1*0 FOR1-OI0h:P0WE4904-1,FEEK!4*O4 



3, DD, 2 1,88, 17, DD, 72,0, DD, 73, 1,21,0 



02 



7C1 

880 DATA C9.FE.0, 20,3,77, El. C9.FE, 

8E , 20, 1 A, 7E , FE , 80, 38 , C , FE , 88 , 38, E2 

,FE,BAF 

890 DATA 98,38,4,FE,9C,38,DA,7C,FC 

.9CCA.80. 1E,C3,C,IF,FE,8F,28.E2,F 

E.8D.C10 

900 DATA 28,DE,FE,8C,2B,DA,FE,89,2 

O, 10,E3,AF,ED,32,7E,E1,FE,80,38,DD 

. FE , DOC 

910 DATA 88,38,83, 18.07, FE.8A, 28, E 

C,FE,BB,28,EB I FE,9C,C2,C, 1F.7E.4.4 

,AA* 

920 DATA IE, 90. ID, BB.CA, 4B, IF, 10, F 

9,FC,0B,C2,VC,IE,CD, 1C, IF , C 1 , FD.SS 

,0,A74 

*30 DATA 23,23,E3,FD,E1,21,3D, IB, 3 

E, 2, CD, 36, IF, FD, El. C9, 71, El. CD, 31, 

C2.ABD 

940 DATA C9,AF,D3,F3,32,3F,1D,0E,9 

E,CD,3I,C2,C9,21, 1*, ID, «, 7, 23, 23, 7 

E.82* 

93* DATA Ft. 0.20, 3, 21, 21, C9, 23, 23, 

23, 10.F 1 ,21 ,F(1, IF, C 9, 03. F 3, 4.4. It, 



!3,l 



,91 1 



980 DATA E3,4,14,21,3C,2,7E.FE.0.2 

0,2,34,20,23, 10,F*,3A,44, ID.E1.4F, 

44.3E.4CS 

•90 DATA 0,C*,*, 10, FC.FS, 79.47.3C, 

0,C*,*, I0,FC,F3,CD,83,C9,*, 14.C0.D 

C.A74 

1000 DATA IF, CI, CD, DC, IF, 4, 13, CD.D 

C,1F,CI,CD,DC,1F,43,3C I FB,C4,8,10, 

FC.A4A 

1010 DATA 7FFF 



XT 
170 F0RI-OTOT:POKC*93*-I,PEEKI*92* 

-li :next:ootoi*o 

180 IFS>SIHTHEN3-l:H-l:T-9100T0t* 

OELSEJ-2 

190- L1NCINPUT-NON ; ■ i AS 

200 A*-A*»- -------* 1POKE6901* J* 

2 . S - I N T I S / 236 1 *2S« 

210 P0KE*9O2*J*2, INT 1 8/ 23* I 1F0RI-0 

T09:P0KE6907.J410.I.ASCINID*IA*. It, 

1,1)) 

220 NEXT;GOSU8230 

230 PRINT*Encor*7- 

240 AB-INKEYS: IFAS-'O'TMENRUNELSEI 

FAS- ' N ' TMENCLB 1 ENDCLBE240 

230 CLB:T-4«O7:F0RI-OT02: 1-4901* I* 

21 S 1 1 1 -PEEK I B I 'PEEK I B* 1 ) »234 1 LOCAT 

CO, 1*1 

240 PRINTIM1 :F0RJ-0T09!PRINTCNRS! 

PCEKIT) ) I :t-t*i:ncxti*b-strs<bi I I ) 

270 O05UB74O:PRINTBSI : NCXT 1 LOCATEO 

,0: RETURN 

280 I -340 ! 3 -O : M-8 1 04 : G0SU1290 : 3- J • 

1 : H-38O0 : 0OBUB290 1 J - J • 1 1 H-48781 OOS 

UB2*01RUN 

290 T-O 

300 READA*:v-VALI*l<H**ASI : 1FV<23*T 

menpokeh,v: t-t.v:h-m»i:goto300 
310 ifvot andv0327«7thcncls:pr1n 

T'Errtur Llfn**l I* 3*10:CND 

320 IF vi >32747TMENJ-**1:T-0:OOT030 

O 

330 RETURN 

340 DATA 47, CD, DC, 1F.3A.4S, 1D.FE, 1 

, CA, 12, IF,FE,Z,C8,3E,2,32,4B. 1D.2E 

,773 

330 DAT* 1.3A.44, ID, 3D,*7, 18,83, 3A 

. 4B.ID.FE. I,CB.3C.2,32,4B, ID, 21. 3, 

3A.3S3 

3*0 DATA 44, 1D,C*.3.*7,D*,8, 18, »E, 

CD,CO.C*.70,D3.FI,3E.2,D3,FB,C*,AB 

7 

370 DATA CI ,DI ,D1 ,D1 ,D1 , DD , t 1 , D3, 1 

l.CC, IA.D3,C3,C3,37, 1F.A42 

380 DATA 7FFF 

3*0 DATA 3S,2B.CD,2B,E4, 18, 12,21,1 

4, 2, 4, 3C, 34,20,23, 10, F8.4, 14, 3*. 88 

.341 

400 DATA 23. 10, FB.C9, CD, AF, 14,21,4 



,«• 



3SO FONT* ! 1 91 ) - * 224, 32, 32, 224 ,32,3 

2,224,0* 

390 FONT* 1 132) --0.0,0.0,0,0,28, 124 



HO FONTS! 1941 --292, 48.0. 100,0,0,0 



,9FA 

780 DATA 21 , 16, ID, 3E, 7,FS,9E, 23, 36 

,23,E3,FD,EI,7E,FE,0,28,26,23,7C,F 

E.0.BB4 

790 DATA 28.3,33, IB, 14,F0,7E,2.77, 

2B.ZB.ZB,EB,CD,4C.1D,28,4,23,23,!8 

.3 AC 

BOO DATA 3, 23, 3*. 0,23, 23, Fl, 3D, FE. 



10 RCN < Noon 2 > By T. Bursal i«r»* 
28 Rut Dupont d* 1'Eur* 27400 
LOUVIERS 
20 IFPEEKI68*ll023Tr!ENF5ET2407:00 
T0280 

30 cls:print- < Hoon P*tfOl > B 

> i . B .if 9» I !•>-••, 83*1 
40 P0«E6900,3:P0KE3908,233 
30 EXEC3B00:F0R1-21T00STEP-31CIRCL 
E I PEEK I 7**2 >**-*, PEEK I 74*3 1*8 -2 >, I 
60 OUT243, INTll'2l !OUT242, 1*12:NEX 



, E.ee.o, 14,C3,CD,31,C2,C1,24.I 
7D» 

410 DATA F8,AF,21,4A. 1 D, 6, 39, 77,21 
,10,FC,3E,E0,32,4*, ID, 3E , 3, 32, 44, 1 
D.4A4 

420 DATA 3E. 3. 32,43, ID, 32. 43, ID, 3E 
,F0,32,3F, ID, IB.e, 30.2C.3 3.2C.2C. 3 
0.2C.48* * 

430 DATA 30. 0,21, F4, 14, CD, 43, E2, 21 
, 3,4,E.80,CD,31,C2,24,E,S1,CD,31,7 
7* 



, CD.BEC 

430 DATA CO.C*. 1, 1, I , 1 1 ,0, O, CD, 3*. 

17,3E,FE,D3,F4,C3,*1, 1 7,CD,C0,C9, * 

7E 

440 DATA 79,03, F2.CD.C0.C*, 78, D3.F 



,2, 1 ,133 

470 DATA FF,FF,3E,FE,CD,8A, 17, 18 

0,DD,34,0.CD,*A,17,I*,8.DD,SE,1,< 

.BA.A24 

480 DATA 17, 18,8, 10,28, F3.87, CI 

,28,8, 13,28,C3,B7,CD,4A,20,F0,DD 

8,0, HI 

4*0 DATA I4,CS,DD,9C, 1, 1D.C8, 18 

,0,0,EE,FE,D3,F4,C*,0, 1,3C,27,2 

F, 17,»7F 

300 DATA *,I,E, I.11.3E, 1D.CD.2F, 

, 1 A, 21, 44, 10, 11,43, ID,F3,CB,*7,2I 

A, 1A.3CA 

310 DAT* FE, 3, 20, 23, 3C, 2, 12, 18,1 

CB,9F,28,D,7E,FE,3,2B,*, 1A.FC.3, 

.1,33,447 

920 DATA F1,FS,CB,37,28,D, 1A.FE,; 

20,*,7C,FC,B,28,1,34,F1,F3,C»,77 

B.A.9BC 

S30 DATA 1A.FE, 3,20,3,34s, 1.32,41 

D,F1,CD,3F,C0.3A,43, ID, FE , 3, 20, 2i 

21.30.7OD 

340 DATA 1D,7E,3C,3C,FE,B,20, 

77,CB,FF,2C,3,CD,*, IB, 18, 4D, 4F , 3< 

44,10,7*3 

SSO DATA 3D,*7,C3,CD,FD, 1D.CI.C, 

,CD,FD,ID,C*.21,3C, ID, 7E, 3C , 77, C 

947 

340 DATA 4F.2B, l*,3C,B0,2E.2,CD, 

18,3A,3C, ID, FE. 3,20. 24,21,44, ID, 

,FC,B,44A 

370 DATA 28, 1C.34, IB, IV.FK.S.ZO, 

31,3,32,43, 10,18, B*,3E,*A,2C, 3, C 

4, IB, 34 A 

980 DATA 31, 98, 21, 2.CD,*, 18,21,31 

1D,3S,7E,23,FK.0,7E,20,3,FE,F7,2I 

1 , 34 , 732 

3*0 DAT* 21,42, 1 D, 3S, BC , DA, E4. 18 

F.77.CD, IE, IF, 7B.FE, 1 ,28, 1A.3.C3, 

D.B7.8C2 

400 DATA 87,80,4F,*,0,ES,D1,23,23 

23, 23, 23, GS, CD, 10, El, CI, CD, 23, IF 

8.E1.9CD 

*10 DAT* CD, 11, 1F,7S,FS,0,2S, 

,SF,13,D1,23.23,E3,FD,C1.FC,24,30 

3.21.A7A 

*20 DATA 38, IB. 18,30, FE, 48.30,3, 2 

,AF,1B,18,27,FK,*C,30,9,21,*,1C, 

,1I,FI,*7* 

430 DATA 90,30.3.21 ,87, IC, IB, 13 

,84,30,3,21,84, 1C, 18, C,FS, DA, 30, 

21 . *4 , 744 

440 DATA 1*,1S,3,21,31,1A,CD,4C. 

, 2A, 4*. 10. II, 3C.O, 19,22,4*, 10,3* 

1, 10, 3E* 

*30 DATA 32,40, ID, Ft, 1,20, 33, 3A, 

, 1D,F1,A,30,21,3A,44,1D,47,C3,2C 

,1,0.403 

4*0 DATA S,24,C3,CD,FD, 1D.C1 

,E1,2E,1,CD.FD,1D,21,4A, 1D.7C.3C 

S.A.9DF 

670 DATA 20, 2, C*. 2, 77, AF, 32, 41, 1; 

CD, 17, 1F,32,40,ID,CD,17, ID, 3 A, 40 

D.FE.BOB 

680 DATA 2,21.3*, ID, 20, 7, 36,0, CD 

3. IF, 18, ll,33,7E,FC,CO,20,B,3«,0 

1,4*. 1D.42A 

690 DATA 7C, FC, 0,28, 1,33, CO, AF, 1 

21, 4A, 1D,7C,FC,A,D2,DC, 1A.C4.E0, 

21,913 

700 DATA 

I, 17, SAC 

710 DATA 7FFF 

720 DATA AF, D3, F3. 32, 3F , 10,32,41 

0,3E,*F,C3,S9,19,CI,23,C3,DF,1D, 

8 

730 DATA 7FFF 

740 8B-- *:FOR*-2TOLENIAS> : BS-BS 

NRSI17**ASC!HID*IAB, J, I I D1N1XT1 

TURN 



',AF,21,77,CD,9E,CE.C3 



THOMSON TO7,TO7 70,MO5. 

#*^L*s Suite de la page 2t 

28883 COLOR 6,4:F0P 4-1 TO UiRtAE> XiLOC 

ATE 8*I,liPI»I»nCt«i<X>tNEXT HRESTORE 

28886 COLOR ,9 

28818 RETURN 

28588 r>ErCRC(t>-*8eee88888, 1888888888.1.8 

eeaeeeee, tBeeReeeee.iBeeeeeei l.teeepneie 
8, iBeeeee 1 88, teseeee t ee 
28518 DEfCRB<2>-*.Beeeeeeee. iBeseeeei i.ip 
aeeeeeei, iBeeeoeeee. t Beei M tM* tB I W M CW 

8. IB 18888888, IB 1 8888808 

28528 DEFCRBO.'ieeeeeeeee.'.eieeeei in.ie 

81881818, tBiei 18 188. tB188881 88, IB 1186110 

0. ib ieieeie«, i.8i8ei 88i e 

28538 0EFCR«<4)-8.8,6.8,8.8.8.8 

28548 DErcjttc5>-i.B8eeeeeie.t8eeeeeiBe.'.& 

•eMlMe,iB8*ei8880. tBBHBieeeo.irjewHKiB** 

8, 1B8M1WM. I.B8M 1 8880 

28568 DEFCRB(6)-LBI 1)11 188, tB888I 1 1 1 I . IB 

86818688, 18888I01 IB. 1&0081H1 18.lB080iee8 

e,49618IMI6,4B18I 11111 

28376 DEFCBt<7 >-lBlB6866l8,l8I 10881 ! 1 . IB 

61 1I1188,1B8«668881. 168888880 l.tB080Ht<e0 

t,lB*A*BMIl,lBlIli: 111 

28375 DEFCRB(8>-*.B886ee868.*.Bl 11 88880. IB 

68108616, IB161 88680. IB 18186888. 188018088 

8. LB66I 8*888. IB 1 1168866 



28588 DEFCR»(9>-tB681888l 1 , 1B81888IBI , I.B 

8 1 88 1 86 1.181681 6 168. IB 18816188, IB 1681881 

1 . 188 1 188888, t.B66eB08e9 

2B598 DEFGRK 1 8 >-t8e8888888. 1B8BB88 1 88, ."- 

BBB^eui B8. IB 106681 88, 4818889818,18188888 

1 8 , 188888888 1 , 1888888888 

2B66B DEFCRB' 1 1 >-lB 1 81 B1B8B. 1818810108.1 

BI88iei8e,lBlB8eiei8.tB8ieBlB18.1B6B101B 

B 1 . LB 1 1 868 1 1 8 . 1868688888 

28628 CYlf-&R8<l>*CRK2>*CR»>3 >»GRI< 4 

28623 CY21-CR»<5>*CBf<6>»CRf <7>*CRI- 9' 

28638 CY3««GRK9>*GRI>ie>*GRI< 11>»* ■ 

38648 RETURN 

3BBB6 CLS: SCREEN 2,8,8 

38818 P0-2iB>-Bi8-6 

36828 LINE'124,168>-<319, 166'. 7 

38836 GOSUB 1158 

38848 kE«-1NPUT«<: I ■ 

38858 N-VAL(RES> 

38868 IF H< 1 OR 1>NR THEN 36648 

38878 FOR K-l TO ND 

36888 A-A(K,(*>8)52'EC 

38683 D-D* A 

38698 FOR 1*0 TO A 

38136 LINE! 128*6. 168-1 >-< 136*6. 168-1 ,C' 

H) 

36148 LINE* 137*8. 168-1 >-' 148*6.155-1 -.4 

30156 IF 1>0 THEM LIME' 139*B, 160- ■ 141*8 

,168>,7 

38166 NEXT 1 



-t-D>. 

38238 
38231 
-1-0), 
38232 
-I-D), 
36233 
38235 
38248 
3825B 
36233 
36255 
38268 

4ti0H*- 
48886 
48687 
4S0JM 
4tM9 
4B81B 
46828 
4064B 
40060 
481 18 
48128 
48138 
46148 

4t*!-'B 



LtNE<128*l*B,159-I-D>-(I36*l*8,159 



B'B*16iP-0 
NEXT K 

GO SUP 1156 

GOSUP 16BB 

pfi-e 

IF R1-CHRB.12 THEN 38666 

RETURN 

CLSiSCREEN 2,8,8 

PI -3. 14159: I 1-8: 12-BiPO-i 

GOSUB 1265 

REt-INPUTBU 

H-VAL<REB> 

IF H<I OR N>6 THEN 46607 

COLOR 2 

LINEC228, 166 < 385, 188' 

FOR 1-1 TO NO 

DEl<I,N)-2*PI8A!l,H>'T(H> 

FOR 12-11 TO I1*0EI<I.N> STEP 8.01 

X-C0S(I2)B8S*22e 

V-SIN( 12)185*188 

PSET<X,Y> 

NEXT 12 



48160 11=1 l-DEl < l.H 
48165 LINE<228, I »0 '•-<>: , -' ■ 
48176 NEXT I 
46171 FOR 1-6 TO 26 

48172 LOCATE 0,HPRINT* 

48173 NEXT I 
481BB FOR K-l TO ND 

48198 LOCATE 6,K*4:C0L0R 3,6t PRINTUSINC* 

66 -;k;:C0L0R 4,0iPR]NTND«<K>; :COL0R 6,0 

iPRINTUSING * *S.*0*iPOKK,ri>ttCOLOR 7,8 

JPRINT* >.* 

48288 NEXT K 

48218 LOCATE 0,HCOLOR 7, 1 iPRINTTUCOLOR 

.0 
48226 LOCATE 8,3iC0LOR I , 7iPRINT*RELEVE* 
;Hi* :*iNRB<N):COLO«,e 
46248 COl-0!CO-6 
48256 FOR I-I TO ND 
48266 C0-C01 
40270 C01-C01-DE1 : ■" 
48286 CO2-(C0*COI>'2 
40298 C03-C05<C02)885*228 
48388 LI3-SIN(C02>685*188 
40318 I«-STRi(l):l«-RlGHTHI<,LEN<l*>-l> 
40328 LOCATE C03'8,LI3 BiCOLOR JiPRlNTU 
48338 NEXT I 
48500 COSUB 1600 

40350 IF RB-CHRB-12 THEN 40088 
40360 PO-6 
48576 RETURN • 
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EXELABYRINTHE 



EXELVISION-EXL 100 



A suivr e : 

En raison de la longueur 
mhabituelle du listing. 
nous passerons ce pro- 
gramme en deux tots 



Retlechissez a deux fois avanl de Iranchir I entree de 
ce labynnthe. les epreuves qui vous y attendent ns- 
quent d avoir raison de voire equthbre 

Alain BARBIER. 

Mode d empk» 

Ne le cherchez pas. il s est lui aussi perdu dans le labynnthe 



C»CL"ISIOM cl 100 

PROGRAMME EIELABTRINTMC 

PAR ALAIN BAR81ER 

• CLS "BCb"(CALL COLOR ("OBC") 

t LOCATE <3,B) .-F-RINT "PROGRAMME E *CL ABTR INTHE ' 1 LOCAT t <3,17) 

10 PRINT "CCRIT'iLOCATC (7,11»iPRINT -P0U« VOTM PLAIBIR" I LOCATE (t,f> 

11 PRINT "POUR EPROUVCR VOS MCRFl , - : LOCATE (11,3) 

12 PRINT "VOTRC SANC-FROID, VOTRE NCMOIRf :l0CATE 113,3) 

13 PRINT "CT VOTRE SENS OE L ' ORIENT AT ION- : LOCATE ( 15, 1« ) 1 PRINT "PAR" 

14 CALL COLOR c'ObCLH"): LOCATE (17,7>lPRINT "AALLAAIlNN BBAARRBBI IEERR" 

15 LOCATE 1 18,7) iPRINT "AALLAAIlNN BBAARRBBI ICCFtft" 

11 K-3O6BB1 RESTORE IBtFOR A-1 TO 7iRfA0 LtlCOSUB 136(NEXT AiCALL CXCC(306Be) 
17 K-SOBBSiRESTOfiC 270(FOR A-1 TO 4(R£A0 L»i COSUB 336 t NEXT A 

IB DATA ••9a4FOA7eo60A?30O09FB0A","A43624233C92B0C6D2F0344FCC3ACBOCCO22a9EA12OF" 
IS OATA ••£3Soee234FAA3395lA9338A8lB13CE9C3C2FABOOC36631BC1B172E3B450F6A3CB66C13- 

20 DATA "33A02A2277399CC0C3a90276O9B23417363B?39eCA9C93£DB4SABA0C3721OOCAA33343 " 

21 OATA "844A*S«M23774A7A3OCC6O3OC©2942Af2364AC0SCEA6098©9e43l6BBC*A319323ACF7 

22 OATA -BA33B3179831CB31323C6326AF460964919ABC1AC393096A72ACCCC4369939B63231B9" 
21 OATA "(3C6E82A44£C?30?3SC34C4OO«A3OeeB3ACDFr01-' 

24 PAUSE 4tCLS "bMb" 

23 CALL CHAR<33,"O0l03O7OFF703010"> 
2* CALL CHAR(40, "OOOBOCOCFrOEOCoa "> 
27 CALL CMAR(4t ,"O0OB1C3E7F0H0B0BOB") 
2fl CALL CMAR(42,"00080000087F3C1C08") 
2t CALL COLOR! "OtoHLHF"! 

30 LOCATE <11,7)iPRINT "ECXXCCLLAABBTTRRI IMNTTMHEE" tLOCATC 112,7) 

31 PRINT "EEXXCCLLAABBTTRRIINNTTMMEE-iPAUSE 2lCALL COLOR< "«#N" > (LOCATE (18,8) 

32 PRINT "8UIVEZ LES IN91RUCTI0M6" 

31 L4-"V0U9 POURREZ UTILISER LEB TOUCHES. .." tCOSUB 243 
14 CALL COL0R(-0NH"HL0CATC <18,9)(PRINT RPT4(" -,23) 

33 LOCATE <18,20>:CALL COLOR* "ION" ) (PRINT CHAK40) 
36 If EMPLACEMENT A DROITS "1COSU8 243 

1? LOCATE (18,20) I CALL COLOR( "IBM" ) (PRINT CHRtOS) 

38 L«>" OEPLACENCNT A CAUCHE "1COSU8 243 

3S LOCATE 118,20>:CALL COLOR < "IBB" ) (PRINT CHftt(41> 

40 L*>" OEPLACENCNT TOUT DROIT " 1 COSUB 243 

41 LOCATE (18,20)tCALL COLOR ( "IBB" > (PRINT CHR4(42> 

42 H-" NARCHC ARRICRC " : COSUB 243 

43 CALL COLORC'ONN") tLOCATE < 18 , 20) (PRINT " " 

44 L4-" BARRE O'ESPACCNCNT POUR TIRCR "(COSUB 243 
43 CALL C0LOR<"OBM"> (LOCATC ( 18 , 19) (PRINT "ESC" 

4fc L«-~ ESCAPE POUR RECOMMENCE* A ZERO "(COSUB 243 

47 ( 

4B • CARAC TERES SPECIAUX 

49 I 

90 CALL CHARC 1,-23003947481 122240808") 

91 CALL CHAR<2,"C3rE7B316OFB4CS7B0"> 

32 CALL CHAR(3,"E28FFF4701A3CCF9") 

33 CALL CMAR(«, •E8F4E2C2C260101090B0-) 
94 CALL CHAR(S,"0OOOOO1F21202O0O1126") 
S3 CALL CHAR(6,"182442071FFTA1C1C141") 
SB CALL CHAR(7, "40A4BAFOFPFDSOSC.B7E7") 
97 CALL CHAR<B,"1fl2442a2000C92E1B160"> 
3B CALL CHAR<9,"3049072F3999A79E2310"> 

39 CALL CHAR<10,"844A11C0343Ari69C404" 

50 CALL CHAR(11,-001C3CS34141633C1C"> 

81 CALL CHAR* 1 2 , "OOOOOOOOFFFF" > 

82 CALL CMAR(13,"0O0OOO0OFCFE743444") 
63 CALL CHAR(14,"0OO21F0BlF33?1?F70"> 
84 CALL CHARdS, "OOOOfFIOFS") 
S3 CALL CMAft(1fc,"0002Ff ") 
8* CALL CHAft(17,"00797BS3ft3S3C37B79"} 
67 CALL CHAR<18,"00C7F7363*3636F?£7") 
SB CALL CMAR(19, -O09C0CDBDC0C0e0C9C"l 
S3 CALL CHAR<20,"FF"> 

70 CALL CHAR (21 , "0OO103O70F0F1F3F7FFF" 

71 CALL CHAfi<22,"OOaoCOCOFOFOF8FCFEFF" 

72 CALL CHAR(23,"0O010l03O3O7OFOF1F1F" 

73 CALL CHAR<24,'0O8O80C0C0E0FOFOF8F8" 

74 CALL CHAR (23, "00000000000001010303" 
73 CALL CHAR(26, '3F3* 7F7FFFFFFFFFFFFF" 

76 CALL CHAR(27,"FCFCFEFEFFFFFFFFFFFF" 

77 CALL CHARCB, OO00OO0O00O090HOCOC0 ■ 
7B CALL CHAR(29,"07070FOF1F3F3F7F7FFF" 
79 CALL CHAR(30,"EOEOf OPOFBFCFCFCFCrF" 
BO CALL CHAR(31,"00000206OCOE1£3E7CrF- 
81 CALL CHAR(33,"OO0O406O7070787C7C7F-- 
B2 CALL CHAft(3«, FEFEFEFEFEFEFEFEFEFf '■ 
Bl CALL CKAR<33,"7F7F7F7F7F7F7F7F7F7F" 
84 CALL CHAR(36, '•■FFFFFFFFfT 

83 CALL CHAR<37, "FFt 381 0O00OOOO81C3C3" 






90 DIN Z4(27,27) 

91 CLS "bCb-lCALL C0L0R("0CblLH")iL0CATl (4,1) 

82 PRINT "CCHHOOIIXI OOUU LLAABBYYRRI INNTTHHEE" ILOCATC (3,1) 
93 PRINT -CCHMOOIIXX OOUU LLAABBTYRRJ INNT THHCr " (LOCATE (9,1) 
34 PRINT - 11--PPCCTUITT ,, 22--CCRRAANNOO'iLOCATE (10, It 
93 PRINT - 11--PPEETTIITT ,, 22 . -CCRRAANNOO" : LOCATC (14,1) 
98 PRINT " 33- iLOCATE (13,1XPRINT " 33--"sCALL COLO*.' "OCblH") 

97 LOCATE <14,7)iFRINT - DENONSTRAT ION AUTOMAT IOUC" 1 LOCATE (13,7) 

98 PRINT - DEMONSTRATION AUTOMAT IOUC" (LOCATE (17,1) 

99 PRINT " AU COCUR DU GRAND LABTRINTHC" (LOCATE (18,1) 

100 PRINT " AU COCUR DU CAANO LABVkINThE" 

101 CMS-HE Y4[CH-A5C< CHS) 

102 IF CH<49 OR CH>31 THEN 101 

103 IF CH-49 THEN NX-41 (RESTORE 1S9(COT0 105 

104 IF CM-30 OR CH-31 THCN RESTORE 133 i HX-63 :N0-0 

103 FOR 1-1 TO HXiREAD L» iC-A8C ( SCCt ( L4 , 1 , 1 ) ) -48 

104 F-ASC(SEC»(L»,2,1)).48[Z*(E,F)-BCC*<L4,3,8HNCXT I : A-0 tfi-0 : C-0 :E-2 tF - 1 

107 L4--8I VOUS PA9SEZ LA PREMIERE PORTE ..." 1 CLS " 8CC " ( COSUB 243 

108 LS--VOUS SERCZ ENFERNE DANS UN LABTRINTHC" (CLS "BRR"iC0BU8 243 

109 L»-"A VOUS O'EN SORT IR ,NAHAHAHA ..." 1 CLS "BHM^COSUB 243. COSUB 200 

110 IF CH-31 THCN COSUB 343 ELBE I-A8C(KCY»> i IF 1-27 THCN GOTO SO 

111 IF I-12B OR 1-129 OR 1-130 OR 1-1)1 THCN GOTO 112 ELK COTO 110 

112 I»2«I-233(TCM-I(C-A8C(SCC»(Z»(C,r»,I.1,1)>-48iFIC-A8C(SCCS(ZtlC,F),I,1))-48 

113 IF FIC-0 THCN L4--CW0ISIS8CZ UNE DIRECTION POSSIBLE ~ 1 COSUB 243(C0T0 110 

114 IF FIC-11 THCN Lt-'-CECt C8T UNE ILLUSION" : COSUB 243 t FIC-4 
113 IF F 10*18 THEN L4--CECI EST UNE ILLUSION" tCOSUB 243tFlC-2 

11* IF FIC-11 ANO C-0 THCN L4-"VOUS TROUVEZ UNC CLEF" (CLS I COBUB 243(C-1 1 FIC-4 

117 IF riC-13 ANO C-1 THEN FIC-4 

118 IF FIC-14 ANO C-1 THEN L»-"ICI ON PERO 8ES CLEF8"lCLS "Bm"(C08UB 243lC-0 

119 IF FIC-14 THCN FIC-3 

120 IF FIC-15 ANO C-1 THCN L*-"ICI ON PCRO BE9 CLEFS"!CLS -BWM"iC09UB 243iC-0 
'2* IF "IC-13 THCN FIC-* 

122 IF F1C««* AW B-0 THEN L«-""OUS T»OL"'EZ UME ARNE" rCLS: COSUB 243i 6-1 1 FIC-3 

123 IF FIC-1S ANO 8-0 THCN L»-"VOUS TROUVEZ UNE ARHC" : CLS iCOSUB 243 iB-1 tFIC-2 

124 IF FIC-18 AND 8-1 THEN FIG-2 
123 IF FIC-17 ANO B-1 THCN FIC-4 

125 IF FIC-18 AND A-1 THCN FIC-2 

127 IF FIC-18 ANO A-0 THCN L4-"V0US TROUVEZ UN COOC" : CL8( COBUB 243: A-1 :FIC-2 

128 IF F1G-19 ANO A-1 THCN FIC-3 

129 IF FIC-1S ANO A-0 THCN L»-'VOUS TROUVEZ UN CODE" I CLS; COSUB 243i A-1 iF IC-3 

130 IF (FtC-20 OR FIC-2DAM0 C-0 THCN L4-"IL FAUT UNC CLEF" 1 COSUB 243tC0T0 110 

131 IF (FIC-22 OR FIC-23>AND C-0 THEN L4-"IL FAUT UNE CLEF"tG0SU6 243:COTO 110 

132 IF (FIC-24 OR FIC-23>AN0 A-0 THCN Lf)-"IL FAUT LC C0OC"lCOSUB 243iCOT0 110 

133 IF FIC-27 ANO A-0 THCN L*-"IL FAUT LE CODC"(COSUB 241iCOT0 1-0 

134 IF FIC-21 ANO C-1 THEN C-0iFIC-2 



133 IF FIC-22 AND C- 
13€ IF FIC-23 ANO C- 

137 IF FIC-24 ANO A- 

138 IF FIC-23 AND A- 

139 IF FIC-27 AND I 



THCN C-0(FIC-3 
THCN C-OirlC-4 
THCN A-0:FIC-3 
THEN A-0:l IC-4 

A-0:FIC-2 



140 IF FIC-26 THCN L4--S0VEZ SVMF'A 

141 IF FIC-20 AND C-1 THCN 143 

142 ON FIC COSUB 200,209,213,222,2 



-BBB":CALL COLORC'ORSH- 



JOUCZ AVCC NOUS":C08UB 243iCOT0 

237, 285, 297, 306,317 



143 IF Lt-"NORT~THCN CLS ' 

144 F-F:E-C:COro ITOlCNO 
143 COSUB 326(CLS "BNN"tCALL COLOR( "OBYH") 

146 LOCATC '11,6>iPRINT "VOULCZ - VOUS RCJDUCR " CO/N)" (LOCATE 112,6) 

147 PRINT "VOULEZ-VOUS REJOUER 7 [O/Nl" 

148 L*-KEV«(IF L«-"0"THCN 90 

149 IF L80"N"THFH 14B 

130 LOCATE (14,17) S PRINT "AU RE VOIR" (LOCATC « 15, 1 7) -PRINT "AU REVOII 

131 PAUSE 6:CL8 "BCC"(CNO 

132 ■ 



CRAND LABTRINTHC 



1-.3 
134 

133 OATA 21 2300 JOOO, 2300002300, 32 :7001 244, 3400 1244 (->,!'» 1244 (700,73 1:003300 

136 DATA »!H3004(00,4BA3439800, 4398003343,8443003400, 8934004900, 34369B240O 

137 OATA 38003698*4 ,36B400369B,63B7>i230O, 67230087) ; ,6(00873(23,76.30002600 

138 DATA ;6BJ('>4600,(7008J(77«:, I j?£oogj l 7 I j I jloo2(00,JI< (O04I0O, IJ003M8JB7 

139 OATA IHa7OO9Hej,I79HBJB70O,713<H>O3I0O,HI3FO02I0O,HF2l003r00,FC7HO01C6E 

160 DATA FH1C6C7M00,FE0O1C6C7H,CfC)0O2F0O,C)EF004)00,CF2OOO4F0O,E04F002D00 

161 OATA 0C1C006C«,D-006C4-1C,DC6C«1C00,CDEAO03D0O,CAFDOO2A00,AC7*O01C6B 

162 OATA AB001C667*,A81CS87B00,*33AO04300,BA45003AO0,0A*:0O4AOO,e;4A004[00 

163 OATA 980087786 j , 378 ,-008778 , 3 j B77B2{00, 7930002900 , ;91 ( 003968 , jBOOCSSBI < 

164 DATA 1 (C36BK0O, ( (C-003;00 ,< -F J0O2-00 ,-> 1< -D2 )00, ■< 8)001 < -O , -D001 < 40B) 
163 OATA >-B7003-lC,)C003-1C87,)7A-1C8700, 7)30003)00, 4300A34318 

166 • 

167 1 PETIT LABTRINTHC 



ASUIVRE... 



Tl 99 BASIC SIMPLE 



SUM M .1 .-'->■:>-■ ' 




■ ■ 

4440 T4--P1ARTEAU! "VSTR4 tOuML (4 I ; 

44SO X-IB 

44*0 Q09UB 41 10 

447i^ T»--i.««PE 1 -4STR*lOUTIL(3) 

■ ■ 

4490 ■OSUI 

43O0 T4--RADLAL. t *6S'RS (OUT IL 1*» 



43 1 1 






43BO TS--CORDE 1 
45BO 1-16 

4400 aoaua «m 

4410 T4--PIT0NS 1 
4420 t-17 



'69THS OUT II 



'6BTRt(OUTtL(3) 



4320 S05li 

■ 3URR1TURCI ■ LSTKH vltfRti 
4i4l> «-21 
4350 OOSUB 41 IV 

41*0 1*-"EAU t-6STRt(CAU) 

4370 X-22 
4380 OOSUB 4110 
43*0 RETURN 

4AOO PRINT -VOICI LEB OuIIlS QUI SON' A 
VOTRE DISPOSITION" 

4610 PRINT --i--i--r"PIOLEI 3fcO-«-COSDC 
2*8"i-PIT0NS 1KB LE LOT-i -HARTEAU I» 
O-CLAMPE 1K6-I-RADEAU SkB- 

4fc20 PRINT "t-VIVRCS-i -CAU-I - *! "ATTCNTI 
ON NE VOUS CMAROCZ PAS TROP -1" 

4A30 PRINT -APPUVEZ SUA UNC TOuOC POUR 
COmCNCER VOTRC PAOUCTAOC* 
4640 CALL KCV(O.RCT.ETAT) 
4630 IF ETAT-O THEN 4640 
46*0 CALL CLEAR 

4670 PRINT -TAPEZ LE NONBRE OUC VOUS EN 
PRENCI OU ICRO SI AUCUN-1--1--1-- 
46BO INPUT -PtOLET (~|0 
4690 OUTlLUi-0 



4KKi 


POIDS-POIDStO*: 




■i .' 1 ... 


PRINT "POICS--IP0IDB 




47J0 


INPUT -CORDC 1-1O 




4 - 


OU1 )L(2>-0 




• 740 


P0IDS-POIDS*O*2 




« rase 


ORINT -POIDS--IPO10S 




4 r*o 


INPUT "LOT DC PITONB 1-1O 




4770 


OU1lL<^--e 




* 'H 


POIOB-POIDS-O 




*?*.., 


PRINT -P01D6--IPO1DS 




*tto-. 


INPUT -HARTEAu 1 Id 




-i-i.. 


0UTlL(4l-O 




48120 


POIDS-POIDS*0 




4«;o 


PRINT -POIOB--IPOIDB 




4IJ4 


INPUT -LAMPE 1-10 




4B5.: 


OuTIL(3)-0 




WBO 


POIDS-POIDS*0 




4B70 


PRINT -P0IDS--1POIDB 




«M0 


INPUT -RAOCAU l-lO 




4BB0 


OUTlL(*)-e 




4900 


P0IDS-P0II>S*e*3 




•91 ■ 


PRINT P0IDS--tPOID9 




4*30 


INPUT -NOURRITURE >0 LA RATION* 


iO 


4930 


VIVRC-O 




4i*. 


poids-poids-;*d 




4990 


PRINT -POID9--IPOIDB 




(9*1 


INPUT -EAU EN LITRCS-iO 




4970 


CAU-O 




•9B> 


fCID5-FOI0S'C 




*•*<*<■> 


CALL CLCAR 




sooo 


PS ( 1 1 -3 




9> 1" 


P9<2)-2 





30 3& PS(4)-i 
3O40 PS(3>-i 
303O PS (6) -3 
3O60 GOTO 1 |90 
. CLEAR 

WTUlSi-0 THEN 
■ 

VOUS AVt; SuCCOrlBI PENDANT 
^■ttPOf.- .--, vOUK AvCZ TOUT Dt HCHC 

FARCOUPlf IPI -in Dt BAU 
5120 GOTO 31U 1 

"VOUS N-AVCZ PAS DC CHANCE 
O'AVOIR PERDU VOTRC LANPC DANS VOTRC C 
MUTE- 

3140 PRINT -COMMENT VOULEZ-VOUS V VOIR 
CLAIR nAINTENANT — : ALLE.' ' JE 019 OUC 
VOUS ETCS MORT- 

3I30 PRINT -CA VOUB EVITERA DC SOUFFRIF. 
ii'MJ it FALLAIT AVOIR 2 lAMPCS" 
31*0 BOTO 3IB0 

3170 PRINT -VOUS ETES TQMBC DEFINITIVE 
-MENT AU 'ifriiH MNJ" 
31B0 FOR I-l TO 10 
3190 READ A. 8 
320© CALL SOUNO(A.B.O) 
3210 CALL SOUND (10. lOOOO. 301 
3220 NEXT I 

3230 OATA 400,131,350,131,40.131,400,131 
.300,134.40. 139,400,131.300,131. I. 131. IO 
O, 131 

3240 PRINT --i-VOUB CTIEZ A "INC-Pl" HM 
DC LA SORTIE- 

52SO GOTO 323o * 



SOUS-MARIN 



Mors que vous voguiez tranquillement dans les eaux 
du Pacifique a bord de voire sous-mann. un bateau 
ennemi vient vous chercher les coups. 
Ne vous laissez pas (aire et envoyez par le fond ce 
"casse-pieds" ' 



Eric BOUGOGNE 



Mod* demploi: 

Ne le cherche* pas. II est dans le programme ' 



19 REM S O I i - n » « 1 H 

29 REM Eric 6UURGU<..Nfc HM -, I hHt- ' 
Pi. 4s4 

30 REM HlltHlluN Lei couleurs ton 
t choisies Pour le monlttur mortoch 
rorse si vows avez I* couteur.mr.du 
lez 14 U9n« 49 -ink 9 -la mer . in 
k 1 -le sous warm- ink 2 -It sable 
> 

48 MODE 1 INK 9./ INK 1.9 1W 2. IS 

BORDER 7 PEN 1 pHk-tR » 
50 REM Presentation 
69 PRiNI" Bitnvtnut a bord" 

PRINT PRINT 
79 PRINT PRlNT"Vous voici comwanda 
nt a bord d'un sous-" 
89 PRINT PRINT"Mrln.4utl4ut Part 
dans les eaux " 

99 PRINT PRINT'elaires du Paclfllu 
t . ma I hturtustmt nt " 
199 PRINT PRINT'vous n'ttts Pas se 
u I ul) bateau tnneur 
119 PRINT PRINT"4uadri lit It secte 
ur. ll vous rtPtrt" 
129 PRINT PRINT~9race.au bruit de 
vos moteurs et vous" 
139 PRINTPRlNT"tnvoit des 9rtn*dt 
s sous-mar ints tul" 
149 PRINT PRINT"sont re9ltes Pour 
exP loser a la Profon-" 
159 PRINT PRINT"dtur ou vous vous 
trouvtzisauf si vous" 
169 PRINT PRINT"ttes Pose »ur le f 
ond de sable. " 

179 PRINT PRINT" tePez un 

e toucht" 

189 REM animation Presentation 
199 TRC PLOT -2,-2.2 
299 FOR x— 179 TO 649 STEP 4 ■ MOVE 
x, 369 PRINT" sous-mann"; IF INkEY 
»»"" THEN NEXT 
219 TP.GOFF 

229 IF INKEY*-"" THEN 229 
239 CLS 
249 LOCATE 1.7 PRINT'Le sous-martn 

se dePlace a I 'aide des" 
259 PRINTPRINT-f leches. Vous rtmar 
4utrez 4u' l I a una" 
269 PRINT PRINT'ctrtalnt intrcie. 

Lors4u' ll sort de" 
279 PRINT PRINT"l'tcran. la nouvell 
e zone ou i I se " 

299 PRINT >PRINT"trouve est visuall 
see Pour vous Per — " 
299 PRINT PRINT"mettrt d« sulvre s 
a Pro9rtssion. " 

399 PR I NT. PR I NT "Pour detrulre le b 
sttau. ll vous faut " 
319 PRINT PRIHT"d'abord fair* surf 
ace. Vous receverez" 
329 PRINTPRINT'alors des Instruct 
tons." 

339 PRINT PRINT" taPez un 

e toucht" 

349 REM 2e animation-Presentation 
359 TRGOEG 

369 FOR a-9 TO 99 MOVE 159»299«C0S 
<a),416-199*SIN'a)PRINT"sr,us-«iari 
n ".'IF IHKEY4""" THEN NEXT 
379 IF INKEY*-"" THEN 379 
389 BORDER 9 
399 REM fond 
499 DIM h<22> RAD 

419 FOR 1=9 TO 22 h< 1 -19TC0M HI • 
-in HEX! 

420 REM dessin du ss-marln 

439 SYMBOL 244. tB. 10.19.19. MF, IF. 

s7,»9 

449 SYMBOL 24S.ie.M.l6>t,6,e.FF,'FF 




.IFF.&9 

459 SYMBOL 246.49. 19. M.t-e.te.lFE. 

«.FF,19 

469 SYMBOL 247.«.9.«,9.S.9.t9,«,0.«.9 s. 

F8 S.9 

479 S»=CHR»' 244 .♦i.HP*' .'45 ,*r.HP$. 24 

• ■• 'Ik* 

489 REM dessin du bateau 

499 SYMBOL 2S5,tE,«.4.tE.*lF,«.FF,47 

F.V3E.UC 

590 bateau*-CHR»X213»'H.HR«> 143 »CH 

R*. 14 3 >«-CHP»' 143i.CHP»' 212 • 

510 REM sons 

529 ENV 3,5.-2 29 

539 tabttau-1 G0SU8 749 

540 TAG PLOT -1,-1,1 x-3.'« - -2"M 
xbaT-2999tRND-799 

559 REM boucle 
569 mottur-9 

579 IF IHKEY<9>-9 THEN dy-dy+0.1 

580 IF INKEY<2>-9 THEN dy-dy-9. 1 
599 IF IMKEY<8>«9 THEN dx-dx-0. 12 
mottur-1 

690 IF INKEY' 1 ,-9 THEN dx-dx*9. I r. 

ottur-1 

619 dx-dx*9.98 dy-dy»0.98 

629 x-x*dx y»y*dy/3 

639 IF x>649 OR x<-64 THEN G0SU6 7 

19 

649 IF «>410 THEH GOTO 990 

659 IF y<49 THEN COSU3 839 

669 MOVE x.s. PRINT »*, 

670 IF mottur-t THEN dxbat=5«SGNt x 
-xbat>. SOUND 2,3999.5,4 

688 xbat-xbat+dxbat MOVE xbat.498 

PRINT bateau*; 
699 GOSIJB 879 
799 GOTO 559 

719 REM sub de chan9emtnt de table 
au 

729 IF x>649 THEN x-0 < xbat-xbat-64 
8 ttbltau-tabl*au-l ' IF tableau — 1 
THEN tableau«2 

739 IF x<-64 THEN x-609 ■ xbat-xbat* 
649.tabltau-tabltau*l i IF tabltau-3 

THEN tableau-0 
749 REM sub de decor 
759 CLS »3 

769 FOR i-9 TO 29 STEP 2 
778 MOVE 9.9 
789 FOR i-9 TO 6 
799 DRAW 19e»l*59,h< i*7*tableau>-j 

,2 
899 NEXT i NEXT j 
819 PLOT -1,-1,1 
829 RETURN 

839 REM sub de Pose eu fond 
849 IF v>h(x'199*7»tab!*au-9.S>*16 

THEN RETURN 
858 dy"9dx-9 
869 RETURN 

878 REM sub 9ren*des ss marines 
889 IF EXPLOS-1 THEN EXPLOS-0 XBOM 
B-XBBT»200*RND-69 YBOMB-499 
899 YBOMB-YBOMB-6 MOVE XBOMB.YB 
0MB 

999 IF YB0MB>Y AND ybomb>40 THEN P 
RINT CHRsK 144 .. RETURN 
919 PRINT CHR*< 238 >, EXPLOS-1 

929 IF XBOMB>0 AND /.BOMB' 649 HMD y 
bomb'359 THEN SOUND 4.0,-1,10,3, , 
30 

930 IF HBSf XB0MB-X-26X30 HND ybom 
b>40 THEN PRINT" PIE HIE ! " , GOTO 
960 

940 MOVER -16,9 PRINT " "l 

959 RETURN 

969 FOR i-l TO 2990 NEXT 



970 TFICOFF CLS LOCHTE 5.10 PR INT - 
Oh combien de mar ins. " PRINT PR1N 
T" c.^ibiBft de caPitaines. . . " 

1.23 
980 FOR i-l TO 1909 NEXT END 
999 REM — navi9atlon en surface- 
1890 TAGOFF CLS INK 9- 10 INk 3-29 

INk 2. 25 BORDER 19 PAPER w PEN 1 
1918 PRINT"Vous etes mainttnant en 

surface. Pwr torpitltr le bake 
».. vous dtvfz i'.'i"r« la d-marche 

suivante " 
1029 PRINT •PRINT"!/' RtPertr le bat 
eau en faisant tourner le PerlscoP 
e a I'aide de? touches "♦CHR»<242) 
+ "ek"*iHP»' .'43 .+ " un scherna du so 
'is-M'rin vous indl4ue l'an9le 
de rotation du Periscope" 

1939 PRINT PRINT"2/ Vous aver deux 
torPilles a l'avant et deux a I'a 

rriere.il faut faire Pivoter It so 
us-marin Pour 4u'il soit dan? I'ax 
*d" bateau. Utisez kwir ctla la to 
ucht "♦CHR9f249)»" tn iwmt ttmPs 4 
u'unt dts fltchts lateralis 

1940 PRINT PRINT"3/ si vous ttts b 
itn Positlonnt (bateau dans It vis 
eur. PeriscoPe tourne vtrs l'ava 
nt ou vtrs 1' trritrt > arintz un tut 
1 1 a nct-torP 1 1 1 <? avtc unt toucht du 

P«vt"» 
1050 PRlNT"nua>trl4ue < atttntion 
tubts 1 tt 2 a l'avant. 3 tt 4 a 
l'arriert). Prtsstz COP* tt vou 
s vtrrtz Partlr la torPillt" 
1969 PRINTPRINT" Presse 

z '►'" 

1978 IF INKEY»<>"P" HND INKEY9' >"P 

" THEN 1979 

1989 PEM dessin du Periscope 

1090 PBPER 1'CLS'PflPER 

1190 ORIGIN 498.399 BORDER n 

1119 FOR V— 199 TO 39 STEP 2 

1129 x«159»SQR< l-<y/199 V2> 

1139 MOVE x,»DRHU -x.y.O 

1149 NEXT 

1159 FOR y-39 TO 199 STEP 2 

1169 x-150*SOR< l-'y/199)"2> 

1 1 79 MOVE x . » DRP.I4 -x . y . 3 

1189 NEXT 

1199 OATH 159,9,-399,9,0,109,0.-20 

9, -80. 5, 0,-19, -40, 5. 0.-10, 40, 5,0. - 

10. 80. 5. 9. -19. 5- 69, -19. 9, 5, 39. -19, 

0.5. -30-19. 9. 5. -60 -10.9 

1299 RESTORE 1199 

1219 FOR i-l TO 19 

1229 REBD a READ b MOVE • .b 

1239 REBD . READ b DPBUR a.b-1 

1249 NEXT 

1250 REM dtssin boussole 
1260 ORIGIN 199.299 DEC 
1279 IF n-1 THEN 1499 

1289 FOR x— 39 TO 39 STEP 4 
1299 y-l88«SPR< l-<x/38>~2> 
1390 MOVE x.y'DRHWR 0,-2»y,9 

1319 NEXT 

1320 FOR a-0 TO 369 STEP 39 DRAW 3 
9»COS<a>.30«SIW a '-2 NEXT 

1330 FOR /— 18 TO 18 STEP 4 MOVE x 
-299 DRBHR B,44-2»HBS( x >,0HEXT 

1349 REM teatoin tubes lancr-kr.rk i I 

les 

1359 WINDOW 41.23. 29. 18, 24 PBPFR • 

1 3 CLS 41 LOCATE 41,2,2 PEN 41,8 
PAPER 41,2 PRINT 41, "tubes"; 

1369 DATA 132,4, 14.4.4 5.2.6. ?9. 4 

►; 
1379 RESTORE 1369 



1389 FOR l-l TO 4 REAP touch' i > PE 
AD c< 1 ) READ l< l >' LOCATE 41 .. • i ■ 1 
• 1 ■ PRINT Nil. NEXT 
1399 an9bat"4» INT' 99>RND> WINDOW 4 
2. 17,35,6,6 
1499 REM bouclt 
1419 MOVE 9,9 DRAW 26»C0S< an9le»99 
>,26»SIN(an91e*99),0 
1429 IF INkEY<8>-9 THEN IF INKEY. 9 
,-9 THEN an9bat-an9bat-4 ELSE an9l 
e-an91e*4 

1439 IF INKEY(l>-9 THEN IF 1NKEY(9 
)-0 THEN an<*at-an9bat->'4 ELSE «n9l 
e-an9lt-4 

1449 MOVE 0,0 DRAW 26»C0S< an9lt*99 
).26»SIN<an9lfk99»,2 
1459 dlff-MIN<an9lt-an9bat.jn«lf»3 
69-an9bat > IF diff- -189 THEH diff- 
MBX< an9lt-an9bat , an91t*360-an9bat > 

1469 CLS42 IF BBS<diffl>36 THEH 14 

1478 LOCHTE 42, 19*dlff/4. 1 PRINT 4 

2.CHR»'.255H 

1488 IF Ptrt<>8 THEN GOTO 1539 

1499 FOR i-l TO 4 

1500 IF IHKEV: tOUCht 1 )>-9 AND Hr. 
( 1 >"0 THEN LOCATE 41 .c' 1 >»1 U I • P 
EN 41.2PAPER41.1 PRINT 41, "P" • P» 
rt-i 

1519 NEXT 

1520 GOTO 1499 

1539 IF INKEY<9><>0 THEH 1400 

1540 LOCATE 41 .c(Part)*l,l(P»rt>P 
RINT 41," " 

1559 ENV 2,2,9,1,14,-1,7 ENT 3,39. 
1,3 SOUND 2.0.-1.15.2,3,1 

1560 ORIGIN 408.369 

1578 PEM conditions Pour lanctntnt 
visible 

1S80 IF Psrt-1 HMD an9lt-9 THEN 16 

49 'lanctattnt a 9auche 

1599 IF Part-2 AND an91e-9 THEN 16 

99 Manctmtnt a droitt 

1699 IF Part-3 AND B8S<an91t )-189 

THEN 1699 'lanctnttnt a droite 

1619 IF Pare-4 AND BBS< an91» >-180 

THEN 1649 'lancewtnt a 9aucht 

1629 tirt<Part)-l .Pare-9 n-1 

1639 FOR 1-1 TO 2999 NEXT Lr>' 

4,9 PRINT"ratt" GOTO 1110 

"r^tmtnt a 9aucht 
1650 FOR y— 98 TO 4 STEP 9.1 
1669 MOVE -4.y>DRHWR y/15,9,2 
1679 NEXT 
1669 GOTO 1739 
1699 ' lancement a droite 
1799 FOR y— 98 TO 4 STEP 0.1 
1719 MOVE 4,y DRAHR -y/15.0.2 
1729 NEXT 

1739 REM verif ication de toucht 

1740 tlre'Pare>-l Part-9'n-l 

1759 IF dlff<>9 THEN LOCATE 24,9 P 

RINT'ratf'GOTO 1119 

1769 SOUND 7,0,3,15, ..15 SOUND 7,1 

09.3.10 'SOUND 7,0.-1.15.2. .19 

1779 LOCATE 26,5 PRINT CHR4(253>. 

1789 FOR 1-1 TO 1990 NEXT 

1799 CLS WINDOW 41 5. 35 8. 18 O.S41 

1«08 PRINT41 PPIHT41. "bravo. vous e 

tes vtnu a bout " 'PR1NT41 ."dt 

ct 9tntur" 

1819 PRIHTtl PRlNT41,"L'fluiPa9t v 
ous adrtsst toukes " PPINT41."s<- 
s felicitations" 

1820 PRINT4I PRINT41." pour 
rtJoutr 'run' " • 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU UEU DE 
52 X 10 =520 FRANCS. ABONNEMENT POUR 6 MOIS : 220 FRANCS. Pour lelranger : + 80 F. pour 1 AN 

+ 40 F. pour 6 MOIS. 
NOM : MATERIEL UTILISE : 

PRENOM : CONSOLE : 

ADRESSE : PERIPHERIQUES : 

BUREAU DtSTRIBUTEUR : REGLEMENT JOINT : □ CHEQUE DCCP 
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SECTEURS 



Ce programme permet de lire directemenl sur ta dis- l la un secteur i Vkj*o mivbtm 

quette les secteurs. de les disassembler, de recher- S Sauvegarde un secteuf N Video wnun 

rhfir rifl<; rarart£r«<; <mr la dKUiunttP Rtr ! M,ni «»•"*»•» ABCO Recherche ABCD sur la disguette 

cner oes caracieres sur ia aisquene. eic D Disassemble * secteur 12 34 Recherche 12 34 sur la d.sduette 

Guillaume JOURET 60t ^ ) ABCD Mise en memoire de caracieres FF * 1 A Addition en hexadecimal 

6000 1234 Mise en memoired octets FF-1A Soustractton 

Mode dempkx *6 Transcnt le chiftre decimal en hexa FF" IA Multiplication 

. Afltche une page m*mo«e vers S 6000 10$ Transcm le chittre hexa en decimal 

Afliche une page memoire vers S 60FF FIN Fin du programme 



10 ONCRR GOTO 6240 

20 TEXT > HOC t VTA* lOt HTAB 
IOi PftINT 'VCUILLE2 PATIENTE 
ft* 

30 DATA 169, 120, 160,10, 3?, 

217,3,94,0,98,1,94,1,0,17,19 
,32. 126, 0,*«,0,0, I, 0,0,94, I, 
73.94,49,32,10,0,1,239,214.4 
7 

40 . MIMEM: 24374 

90 FOR I > 32741 TO 32M4i MAO 
Al POKE I, A: NEXT I 

60 DIM VA(*99>t DIM CA(999)iV - 
I9t 0IM CM*<999) 

70 DATA 173,112 ,3,32.218.293, 
M, 7»,44,l 74,74,48, 1 74,0,0,0 
,0,0,0,0,0 

80 DATA 233,129,49,208,20.144, 
63,144,42,208,1,134,202,138, 
24,229,90,133,42,14,1,200,19 
2,229,99,208,107,144,47,109, 
4 1 , , 1 43 , 38 , 1 34 , 1 4 , 248 , 32 , 24 
,232,32,24,232,32,208.248,32 
,83,249,132,99,133,38,76,149 
.117,32 

90 DATA 190,299,144,92,32,147, 
293,132,32,140,23,134,40,79, 
21 7, 204, 233, 208, 24*. 192, 21, 2 
08, 232, 143, 49, 140, 0,198, 92,1 
2,0,294,74,149,117,149,41,32 
,142,248,170,189,0,230,197,4 
4,208,19,189,192,249,197,47, 
208,12 

100 DATA 143,48,144,44,192,137 

,240,134,197,44,240.139,199, 
41, 208, 220, 230, *0, 198, 93, 240 
,214,144,92,132,170,32,74,24 
9,149,222,32,237,233,12,99,2 
99,149,141 , 1 33,31 ,32,103,231 
,12,199,299,173.0,2,281,140, 
240,19,200 

110 DATA 201,144,240,144,134,3 
2,147,299,201,147,208,213,11 
8,240.210,12,120,234,149,3,1 
33,41,32,32,118,10,231,190,2 
01,194,144,199,10,10,142,4,1 
0,38.44,39,47,202,14,248,198 
,41,240,244,14,228,142,3,32, 
92,118,132 

120 DATA 92,221,109,249,209,19 
,32,92,118,221,194,249,240,) 
3,189,184,249,240,7,201,144, 
240,3,144,92,24,134,39,48,22 
4,3,209,13,32,147,233,163,43 
. 740. 1. SOT, l 34. 33, 162, 3, 136, 
134,41,203,14,201,169,60,10, 
10,9,93 

130 DATA 201,32,176,6,166,93,2 
40,2,9,128,133,48,132,92,183 
,0,2,291,187,240,4,281,141,2 
88,129,24,92,117,189,0,2,200 
,201,140,240,248,96,32,129,2 
44,169,248.14,19,201,142,208 
,249,94,249,16,10,149,291,24 
0,4,210 

140 DATA 290,208,2,230,249.94, 
149,0,133,249,133,290,94,299 
,299,299,233,233.239,239.233 
,74, 144, It 7, 104, 91, 224, 221, 2 
00,7,104,24 

130 FOR t • 848 TO 048: READ Ai 
ROME I ,Ai next I 

140 FOR I - 29932 TO 30320 1 READ 
Ai POKE I,Ai NEXT 1 

170 HOME i VTAO It KTA8 l9l PRINT 
"LES SECTEURS DC I A F* l VTAB 
10 1 MTA9 41 PRINT 'VOUS POUV 
EI l' 

190 VTA8 l 3 i HTAB 3i PRINT •] 
LIRE UN SECTEUR' 

190 VTAB 13: HTAB 3t PRINT '2 
ENREOISTRER UN SECTEUR HEN 

04000* 
200 VTAB 17= HTAB 3i PRINT '3 

VOIRE LA HEW TAMPON P CONT 

tNUEft* 
210 GET AOiA • UAL <A9) 
220 IF A • 3 THEN 90SU0 5000: OCT 

Ati SOTO 170 
230 IF A • I THEN HONE I GOSU* 

3830) GOTO 9000 
240 IF A > 2 THEN* HONE : OOSUB 

39301 GOTO 9000 
290 GOTO 210 
9000 ONERR GOTO 6240 
3010 TEXT i HONE 
9929 V - t 
3030 DC - 24974 
3040 IF PR - 1 THEN PftI I I PRINT 

CHRt <9)*40N' 
3043* IF U - 22 THEN 3270 
3030 D - DEi 0OSU8 3340 
3040 UTA9 (V>i HTA8 li PRINT ft* 

9070 0-7 

3080 P - 

9090 FOR t - DC TO DC • 7 

9100 IF DC ) ■ 24932 THEN 3299 

91)0 IF DC < 24374 THEN 9030 

9120 P - P * 1 

9130 VA(ft) • PEEK (Ui POKE 890 

,UA(P> 
9140 UTA9 <V>: HTA8 <0> 
9190 CALL 848 
9140 0-9*3 
9170 NEXT 1 
3180 0-0*1 
3190 VTA* <V>t HTA8 <0)i FOR 1 - 

I TO 8 
9200 IF VA(l> < 31 AND VA< I ) > 

THEN VA< I ) • UA< 1 1 * 44 1 NORMAL 

1 PRINT CHM <VA(l))[i NORNAL 
l GOTO 3230 

32)0 IF VA(t> ■ THEN VA< I ) - 

VAlD I 44i NORNAL i PRINT CHM 



II I i 



I28l 



• INT 



CHftt <VA<l))|i NORNAl i GOTO 
3298 
9238 IF VA<I> > 127 THEN VA(I> ■ 
VA(I> - 64: FLASH i PRINT CHRO 
(VACinn NORNAL i 9OT0 9290 

9240 PRINT CHM (VAU))| 

9230 NEXT I 

9248 v - V • HOC - DC * 9i GOTO 

9040 
3270 Pftf 

9279 IF PR - 1 THEN PR - 1 SOTO 
3010 

9277 POKE 34, V 

9280 VTAB Vi HTA9 I i CALL - 84 
8i PRINT ■•■ i rA9 - " 

3290 OCT ftt: IF ASC (Rt) -13 THEN 
9379 

924)9 IF ASC (ft*) • 9 AMD LEN 
(A9> - I THEN At - "I VTA8 
(V>i HTAB 2i CALL - 949: SOTO 
9290 

9310 IF A9C <R9> - 9 THEN NO - 
"i FOR I - 1 TO ( LEN (AO) > 
- 1 tN» - Nt • NIDO (AO.1,1 
>l NEXT IiAt - "iA* - Ntl VTA9 
<V>| HTAS I l CALL - 868: PRINT 
■•' |A«i t OOTO 3290 

9320 IF ASC (Rt) - 21 then SOTO 
9299 

3330 PRINT Rt|iAt - At • R9 

3349 IF AO • ',* THEN DC - OE - 
3341V • li TEXT i HONE i OOTO 
9040 

3390 IF AO • V THEN V - 1 1 TEXT 
i HONE i OOTO 3040 

9340 OOTO 9290 

9379 IF A* • •!»• THEN GOSU8 38 
30 1 TEXT t HONE i OOTO 3000 

3380 IF A8 - "* THEN TEXT i HONE 
I VTAI 23 1 HTAI 9i PRINT 'PO 
UR CONTINUER FAITC '•09C46- * 
> POKE 39,221 VTA9 li HTA8 I 
i CALL 300991 TEXT i OOTO 30 
It 

3390 IF AO - "0* THEN VTAO (V) 
l HTAI li CALL - 068: INPUT 
'A PARTIR DC I*|Y*|Y* - i» • 
■L'l TEXT i HONE IV - 23 i GOSUO 
9790i 9OT0 9290 

9499 IF A9 > *C THEN VTA8 (V) 
i HTAI 1 1 CALL - I4ii BOSLii 
4149 

3410 IF At - *S* THEN GOSUO St 
90) OOTO 3290 

9470 IF AO - *' THEN 9290 

9439 IF LEFTO <A9,1> - V THEN 

90SUI 4240. DC - NOi TEXT i NONE 
■V - 1 1 OOTO 9040 

3448 FOR 1 - 2 TO LEN (A0)i IF 
NID8 (A8,t,t) - V OH HIM 
(ft*, I, I) > 't* THEN EC* ■ NIDO 
<A*,I,I)iL - tl QCSUO 3400 

9499 NEXT t 

9449 IF RIOHTO (A0.lt - ••• THEN 
Dt - "i f OR I - 1 TO ( LEN 
(A9>) - llDt - 09 • NIDO <A 
0,1,1)1 NEXT iD - UAL (Ot)t 
SOSUB 3348 > VTAI (V)i HTAI 
2l CALL - 848: PRINT At|Rtl 
OET Rt: OOTO 9290 

9470 IF RIGHT* <At,l> • *f THEN 
19 - "i 909U9 4090: VTAI <V 
>i HTAI 2) CALL - 969i FOR 
I • 1 TO LEN <A9) - llZ9 ■ 
19 • NI09 (At, ],l)i NEXT ■ PRINT 
'9*|2*l'-'|0i OCT Hi OOTO 3 
29* 

3490 FOR I > I TO LEN (At)iOt ■ 
NIDO <At, 1 ,Di IF 09 ■ *•* OR 
M - •/• OR 0* - •-* OR 09 - 
*** THEN OOSUB 4900i OOTO 9 



949? IF At - *CO' THEN 0OSU8 9 

888 
9900 IF At - 'FIN* THEN TEXT t 

END 
3303 IF At - ■Mil* THEN PR - 1 

9310 IF At - •]' THEN INVERSE 

i CO • 1 1 OOTO 9280 
3320 IF At - 'N' THEN NORNAL : 

CO - i OOTO 3280 
9930 SOTO 9280 
3340 Rt - OiR* - " 
3330 R2 - INT <R1 / 14) 
3340 R3 - Rl - 14 • R2i IF R3 ) 

9 THEN R3 - R3 * 33iR3t • CHM 

(R3)i OOTO 3380 
3370 Rlt • STR* <*J> 
3380 R* - Rlt • Rti IF 92 ( > 

THEN RETURN 
9990 tl ■ 92 1 OOTO 9990 
9400 IF EC* - *i* THEN 3730 
9410 n ■ "• 

9420 FOR I - I TO L - I iT* - Tt 
* NI0t (A*,I,l)t NEXT liTt 



3700 T* - Yt • * * * ft* 

9710 NEXT 1 

3720 GOSUO 3780 

3730 POP 

3740 DC - DC - 14*tV • 1 1 TEXT i 

HOME iCO - 0: GOTO 9040 
9790 Yt . "it* - At. SOSUB 3780 

3740 POP 

3770 DE - OE - 168 iw - li TEXT i 

HOME i OOTO 9040 
3780 Y* - T* • ■ N 09C46* 
9790 FOR I • I TO LEN (Yt) 
3800 POKE 911 • I, A8C < MID* ( 



1,1,1 



128 



3810 NEXT I i POKE 72, Oi CALL 



3040 PRINT ■LECTUMi'n HTAI 10 

9*90 T > PEEK (32702): POKE 880 
,Ti PRINT 'PISTE i*ii CALL 8 
48: PRINT ' PAR DEFAUTi'n INPUT 
Rti IF Rt - '• THEN 9870 

9*40 Yt - 'BOOEi'tYt - Yt • Rti SOSUB 
37B0iT - PEEK (327B2X POKE 
980 ,T 

9870 T > PEEK (32782>i VTAB (V) 
i HTAB I l CALL - 060: PRINT 
•LECTURE. •] . HTAB 10) PRINT 
'PISTE t'n CALL 948> PRINT 

3880 VTAB (V • |>| HTAB 10 

3990 S - PEEK (32783) I POKE 880 

,Si PRINT 'SECTEUR I'll CALL 

B46l PRINT • PAR DCFAUTi'p 

INPUT Rti IF Rt - *• THEN 3 



3630 FOR I l 



t TO LEN (At) 



■ Rt: OOSU* 



9440 CA • ASC C NlDt (At, 1,1)) 
9630 IF CA - 00 THEN 3490 
344* IF CA < 31 THEN CA - CA • 

120l GOTO 3490 
9470 IF CO - 1 THEN OOSUB 4070 

> OOTO 3490 
3480 IF CA ( 99 THEN CA - CA • 

129 
9499 D - CA: GOSU8 3340 



910 

9900 Yt - 'OOOFi'iYt - l 
97B0 

9910 HONE < VTAB (V) I HTAB It PftINT 
•LECTURC'ii HTAB 10iT • PEEK 
(33782): POKE BBO.Tt PRINT • 
PISTE t'p CALL 048) HTAB 20 
:S - PEEK (32783)1 POKE 880 
,Si PRINT 'SECTEUR l*]i CALL 
949 

3920 POKE 32790,01 

3930 CALL 32748 

3940 HOME i RETURN 

3930 VTAB (V)i HTAI It CALL - 
948 

3940 PftINT •SAUUEOAftOCi'u HTAB 

3970 T • PEEK (32782)1 POKE 990 
.Ti PftINT 'PISTE i'|i CALL 9 
49t PRINT ■ PA* DCFAUTi'ii INPUT 
Rti IF R* . " THEN 9990 

9990 Yt - 'BOOEi'tYt - Yt * Rti OOSUB 

J7B0IT - PEEK (327821 i POKE 
80 ,T 
9990 T * PEEK (32792)1 VTAB (VI 
i HTAB li CALL - 848: PRINT 
•SAL*VCGA»D€t*|i HTAI I4i PftINT 
'PISTE I'p CALL S48l PRINT 

4000 VTAO (U * 1)1 HTAB 14 

4019 S • PEE" (32783)1 POKE 000 
,S: PRINT 'SECTEUR l'|l CALL 
949i PRINT • PAR DCFAUTi'ii 

INPUT Rt: IF Rt - ■■ THEN 4 
030 

4020 Yt - 'BOOFt'tYO - YO « ftti OOSUB 
3790 

4010 HOME t VTAB (V>i HTAB It PRINT 
'•AUVESAROCi'ji HTAB I4iT - 
PEEK (327B2>i POKE 880, Ti PftINT 
•PISTE i*|t CALL 9481 HTAI 2 
4tS - PEEK (32793>i POKE 88 
O.Si PftINT 'BCCTtUft i*|i CALL 
949 

4040 POKE 32790,02 

4090 CALL 3274B 

4040 HOME ■ RETURN 

4070 IF CA < 44 THEN POP i OOTO 
9499 

4090 CA - CA - 44] RETURN 

4090 D - Ot FOR I - 1 TO LEN (A 
9) • I 

4100 84 ■ NlDt (At, 1,1) 

4110 IF Bt > -9' THEN 8 - ASC 
(8t) • 39i OOTO 4130 

4120 8 - UAL <Bt> 

4130 D - D * 14 * B> NEXT i RETURN 

4140 VTAB (V>i HTAB li CALL - 
848 

4190 SL - PEEK (32779MS0 - SL / 
I4i POKE 880, SO i PftINT 'CAM 
CTERIST10UE i'|i HTAB 29t PftINT 
'SLOTE I'll CALL 949t PftINT 
' PAR OCFAUT i'|i INPUT Rti 
IF Rt - ■■ THEN 4190 

4140 IF lit > '4' OR Rt < '0' THEN 
4140 

4170 R - UAL (Rt)tR • ft • 1 : Rt 

- BTftt (R)tYt - 'gOOOl'iYt 
• Y* • R9i OOSUB 97B0tSL - 
PEEK <32779)lYt - '80I9t'iY 

9 - Y9 • Rti OOSU* 3790iSO - 
SL / Ui POKE 880. SO 
4180 VTAI (U>i HTAI 20 1 CALL - 
•40: PRINT 'SLOTE I'M CALL 
B4B 

4199 VTAB (V)i HTAB 29i CALL - 
848 i POKE 34 ,V 

4200 HONE 

4210 VTAB (V * l>t HTAB 20: CALL 

- 84ll PftINT -DRIVE I'nDft • 
PEEK (32780)1 POKE 880, OR: CALL 

•48: PftINT ' PAR OCFAUT t' 
|l INPUT Rti IF ft* - " THEN 
4230 



4220 Yt ■ 'BOOCi'iYt ■ Yt * ftt; 
37*9tYt - 'BBIAl'tYt - Yt • 
Rti OOSUB 3780:0* - PEEK (3 
2780>t POKE 090,0* 

6230 VTAB < V • l)i HTAB I l CALL 

- 049: VTAI (V)l HTAI 31 1 PftINT 
'DRIVE i'|i CALL 949l FOR I • 

I TO lOOOl NEXT li RETURN 
4240 IF PEEK (222) • 77 THEN RUN 

9000 
4230 2 - PEEK (222)1 PftINT 2: TEXT 

i END 
6240 IF M10t (At, 2,1) • 'i* THEN 

4420 
6270 IF HID* (At, 2,1) ( ) '|' 

THEN 3280 
6280 NORNAL 
6290 N* - *'i FOR 1 - 3 TO LEN 

(At)tMt - MB • mo* (At, 1,1 

>! NEXT 
6300 CAt - " i FOR I •> I TO LEN 

QfJJ 
4310 CA - ASC < NlDt (Nt.1,1)) 
4320 IF CA - 32 THEN 4340 
4130 IF CA - THEN 4340 
4340 IF CA < II THEN CA - CA • 

I29i OOTO 4340 

4339 IF CO - 1 THEN OOSUB 4870 
i 9OT0 434* 

4348 CA(t> ■ CA 

6370 NEXT I 

4380 CO - 

4398 VTAB (V): HTAI ll CALL • 

849: PRINT 'A PARTIR OE LA P 

ISTE'ii INPUT Rt 
4499 VTAI (V)t HTAI ll CALL - 

868. PftINT *A PARTIR DU SECT 

CUR* | I INPUT 919 

4419 VTAI <V>i HTAB ll CALL - 
848: PftINT -JLISOUf LA PISTE' 
I i INPUT Rlt 

4420 VTAfl (V)t HTAB It CALL - 
848: PftINT •JUBOUE AU SECTEU 
ft* 1 1 INPUT 329 

4430 Rt - Rt • * 'iftlt • «I9 • * 
■iSlt - Sit * * *iS2t - S2t 

4440 At - Rti OOSUB 4*99iP - OiA 
t - ftltt OOSUB 4898IP1 - DiA 
t - Slti aOSUB 409OiSI - DiA 
t - S2ti SOSUB 40991S2 - 

4490 S - SI 

4440 FOR I - P TO Pt 

4470 IF S - S2 * 1 AND I - PI THEN 
4410 

4488 IF 8 - 14 THEN 44*4 

4499 POKE 32792, It POKE 32783. S 

4300 i VTAI <V)i HTAB <l)i CALL 

- B4B 

4310 SOSUB 9910 

4920 NO ■ 24974 

4930 IF NO ) - 24831 THEN S • 

S ♦ I i OOTO 4470 

4940 00 - PEEK (NO) 

4990 NO - NO - 1 

4340 IF 00 • CA(1) Oft 00 - CA(I 

) * I2B OR 00 - CAU> - 44 THEN 
FOR NC - I TO LEN (Mt)iOO - 
PEEK (NC • NC): IF 00 - CA( 

NC) OR 00 - CA(NC) • 129 OR 

00 - CA(NC) - 44 THEN 4999 
4970 NO - NO • 2t GOTO 4930 
4380 NEXT NC 

4999 VTAI (VJ: CALL • 868: HTAB 
13: PRINT *TftOUVE«*i FOR t • 

1 TO 2000: NEXT It RETURN 
4400 9 - Ot NEXT t 

4410 VTAB (V)i CALL - 848: HTAB 
IBi PftINT 'PAS TROUVCR'i FOR 
I - 1 TO 20001 NEXT ti KCTUftN 

4420 M9 - "iCH - Oi FOR I • 3 TO 
LEN (At)tMt - Mt • NlOt (A 

1,1,1)1 NEXT 
4430 FOR I - I TO LEN (Ht> STEP 

3 
6440 CH • CH • I 
6498 CHt(CH) ■ NlDt <M9,I,l>lCH 

•(CH) - CHt(CH) • MID* (Ht, 

I * 1,1)1 NEXT 
6440 FOR 9C - I TO CHtAt - CHt( 

BC> * '.'i SOSUB 6090iCA(BC) 

- Dt NEXT BC 

4470 VTAB <V)i HTAB li CALL - 

848: PftINT *A PARTIft OE LA P 

ISTE'lt INPUT Rt 
4480 VTAB (V)i HTAB It CALL - 

B48l PftINT 'A PARTIR DU SECT 

EUR* 1 1 INPUT Sit 
4490 VTAB <V)l HTAB tl CALL - 

868: PRINT 'JUSOUC LA PISTE' 

1 : INPUT Rlt 
4798 VTAB (V)t HTAB It CALL • 

S4St PftINT 'JUSOUC AU SECTEU 

ft* 1 1 INPUT S2t 
4710 Rt - Rt « * 'iRIt ■ Rlt * ' 
•lilt • Sit • • *iS2t - S2t 

4720 At - Rti OOSUB 4090iP - OiA 
t - ftlti 80SU8 4090 :P1 ■ OiA 
t - SI*: SOSUB 4090ISI - OiA 
• - 82tt OOSUB 6090:52 - 

6730 S - SI 

4740 FOR I • P TO Pt 

4730 IF 8 - 82 • I AND I - PI THEN 
4890 

4740 IF S - 14 THEN 4880 

4770 POKE 32782, li POKE 32783,8 

4780 l VTAB (V> t HTAB (1)1 CALL 

- B48 

4790 OOSUB 9910 
4800 NO - 24974 
4810 IF NO ) - 24831 THEN S - 




I • I I OOTO 4790 
4828 00 - PEEK (NO) 
4830 NO - NO - I 

4840 IF 00 - CA(I> THEN FOR NC 
• I TO CHiOO • PEEK (NO • 

NC): IF 00 - CA(NC) THEN 484 


4890 NO • NO * 2i OOTO 4BI0 
4849 NEXT NC 
4878 VTAB (V)t CALL - 848i HTAB 

13: PftINT 'TROUVCR'i FOR I ■ 

I TO 2000i NEXT | i RETURN 
6880 S - Ot NEXT 1 
6890 VTAB (V)t CALL - 848: HTAB 

IOi PRINT 'PAS TROUVCR't FOR 

I - I TO 20001 NEXT li RETURN 

6900 MM - "*iMBt - " 

4910 FOR I • 1 TO LEN (At) 

4920 RE* - HID* (At, 1. 1) 

4939 IF RE* - 0* THEN 49*0 

4940 NAt - NAt • REt 
4998 NEXT 1 

4940 '"-:•! 

4978 FOR I - IX TO LEN (At) 

6980 NB* - NBt * HJ0* (At, I, I) 

6990 NEXT I 

7000 At - MM • ' *i OOSUB 6090! 

NA - OlAt • NBt • • ': OOSUB 

6090 iNB > D 
7010 IF Dt > '*' THEN RD - NA • 

MB l OOTO 7030 
7820 IF Ot - */' THEN ftD • NA / 

NBt OOTO 7030 
7030 IF Ot • '•* THEN RO - MA • 

NBi OOTO 7090 
7040 IF Ot - *-• THEN RD - MA - 

NBi OOTO 7030 
7030 - RD: OOSUB 3340tftH* - R* 

7040 PftINT '-t'lftMti OET Rti RETURN 

9000 VTAB (V)i HTAB I i CALL - 

949 
9010 HTAB 9i PRINT 'FORMATAOE't 

FOR I - 1 TO 2000i NEXT tt OOSUB 

41401 VTAB (V)t HTAB ll CALL 

• 949 

8020 HTAB |l PRINT 'FORMATAGE D 
U DISK NOi'tiDft ■ PEEK (327 
80>i POKE 880, DRi CALL B4B 

8030 POKE 32790,4 

8040 CALL 32748 

8030 VTAB (V)i HTAB ll CALL - 
*4*t HTAB Si PRINT TORMATAO 
E COMPLET't FOR I - I TO 290 
Bt NEXT It RETURN 

9000 VTAJ (V)t HTAI ]i CALL - 



I 

9928 VTAJ <v)i HTAB 3t CALL - 
•48: INPUT 'SLOT ORIGINAL |' 
|SOi HTAB 9t CALL - B4Bi INPUT 
•DRIVE ORIGINAL l*|DO 

9930 VTAB (V). HTAB 9i CALL - 
•61: INPUT 'SLOT COPIC l'|BC 

1 HTAB 9i CALL - B4Bi INPUT 
•DRIVE COPIC i'iDC 

9*90 VTAB (V): HTAB ll CALL - 

B48t VTAI (U • Di HTAB ti CALL 

9099 VTAB (V * l)i HTAB I 

9948 PRINT •METTEZ L'OftlBINAL D 

ANS LE DRIVE MOi'iDO 
9049 FOR BT - I TO 2000 1 NEXT 8 

T 
9947 IF SO - (C AMD DO - DC THEN 

9977 
9979 VTAB (V)i HTAB li CALL - 

94*1 PftINT 'METTE2 LA COPIE 

DAMS LE DRIVE NOi'lOC 
9079 VTAB (V • Dt PftINT 'APPUY 

E2 SUR UNE TOUCHE POUR CONTl 

NUER* | i 9ET A* 
9977 HOME 

9088 FOR PI - TO 2 
9090 FOR SI - TO 14 
9093 ftt - STRt (PI)lYt - '90DEI 

*|Y* - Yt * fttl OOSUB 37B0tR 

t - STR* (SC)tYt - 'BOOFt'i 

T9 • Yt • Rtt OOSUB 3780 
9993 IF SO - SC AMD DO - DC THEN 

VTAI (V • Dt CALL - 84*1 PftINT 

'METTEZ L ORIGINAL ET PRESSE 

2 UNE TOUCHE' t VTAB (V> I HTAB 
38 t BET A* 

9180 ft* * STftt (SO * 10)iYt ■ ' 
BOOBi'iYB - Yt • Rti OOSUB 3 
799iY» • "BOlti'iY* • Y* • ft 
«! OOSUB 3780 

9120 POKE 32794,001 POKE 32700, 
DO 

• IBB VTAB (V)t HTAB 3. PftINT 'P 
ISTC i'iPIi' SCCTCUft i' 

!*E 

914* POKE 32790,01 

9)30 CALL 32748 

9139 IF SO - SC AND DO - DC THEN 
VTAB (V * Dt CALL - B48t POINT 

•METTEZ LA COPIE ET PRESSE* 
UNE TOUCHE*! VTAB (V) t HTAB 
38: OCT At 

9140 Rt - STftt (SC • 10)lYt - * 
OOOOi'iYt - rt • Rt: OOSUB 9 
7B0tYt - •BOtt.'tYt - Yt • R 
It OOSUB 3780 

*1B0 POKE 32794, DCl POKE 32780, 

DC 

9190 POKE 32790.02 

9200 CALL 32760 

9210 NEXT 

9220 NEXT 

9230 RETURN 



LE LOGICIEL DE LA SEMAINE 



OILS WELL de SIERRA ON-LINE 
pour APPLE, COMMODORE 64 



Vous connaissez sans aucun 
doute la triste histoire de 
I'homme-paquet et de ses boites 
de pilules vitaminees. magnesiu- 
mees, bismuthees. mangane- 
ses et surtout renversees, 
eparpiilees. deversees. rejetees 
au travers de labyrinthes tous 
plus sinueux les tins que ies 
autres. Ce sacre bonhomme 
d'homme-paquet devait devenir 
I'idole de toute une generation 
de fanatiques prets a lout pour 
le sauver de divers inconve- 
nients du type fantbmes et 
autres balivernes pour grand- 
meres cacochymes et gateuses. 
Basta ! Le passe ne vaut pas le 
present et, comme ma boule de 
crista! est actuellement en de- 
rangement, mieux que I'avenir. 

L'histoire exemplaire et mani- 
cheenne de la lutte d'homme- 
paquet contre les fantomes de- 
vait petit a petit ronger ('imagina- 
tion de tous les createurs de 
mondes paralleles. Ainsi de 
homme-paquet. on passa a 
humme-paquet. hamme-pequat. 
himme-pequot... Et j'en oublie 
de fort nombreux. Chacun, dans 
son delire, oubliait que ce qui 
est fait est fait et ne se refait 
pas a volonte, comme ga, en se 
contentant de recopier. pomper, 
plagier, pirater le travail des an- 
cetres. Seuls, quelques travail- 
leurs solitaires surent s'abstraire 
de la fange des vilains et utiliser 
le principe fondamental de Pac- 
Man (puisqu'il s'agit bien de lui) 
pour creer un monde genial et 
original, simple et beau, neces- 
sitant celerite et reflexion. Du 
pere d'Oil's Well, la tradition n'a 
rien garde. Mais de son Oeu- 
vre... Tout est consigne dans le 
Grand Livre, celui sans lequel le 
lecteur hebdogicilien -ne pourrait 
discerner entre la sombre ma- 
chination fricquesque et le pur 
genie. Est extrait du G.L. la defi- 



nition suivante. a larticle Oil's 
Well: 

"...si vous devez. tout comme 
dans Pac-Man, absorber un cer- 
tain nombre de pastilles repar- 
ties egalement dans des labyrin- 
thes dont la complexity vous 
laissera coi. en revanche votre 
schema decisionnel se trouvera 
fort limite par des criteres edic- 
tes par le Createur; 
I.Tes racines ne pourras aban- 
donner 

2. Les aliens devras manger 

3. Les pommes eviteras 

4. Les vases consommeras 

5 Les pastilles absorberastoutes 
pour de niveau changer 
6. Ta duree de vie limitee sera. 
Malgre ces conditions fori res- 
trictives, vous sentirez le charme 
sournois de la strategie s'empa- 
rer de votre cerveau, jusqu'a fi- 
nalement vous empecher de 
dormir pour vaincre encore une 
fois les difficultes des huit ta- 
bleaux..." 




Durant cinq autres pages, le 
G.L. derive et brode sur les ex- 
traordinaires plaisirs prets a 
I'usage dans ce logiciel fabu- 
leux. Vous aurez sans aucun 
doute possible envie de le pos- 
seder afin de tester votre resis- 
tance a ce charme insidieux, 
vous aurez raison; le jeu en vaut 
la bofte de douze chandelles. 



PEPE LOUIS CONTRE LE GANG DES PUCES ! 



RESUME DES EPISODES 
PRECEDENTS 

L'Ombre Verte menace de tuer vingt 
jeunes femmes si on ne lui livre pas 
Steve Jobard, Jack Tramolo et Lord 
Sansclerc. les rois rJe Tinformati- 
que. Pepe Louis tente de convaincre 
Steve Jobard, PDG d'Appoil, de 
venir a Paris. Jobard refuse. Pepe 
Louis se fache ! 



76me EPISODE: 

BLACK JACK ! 

-GET OUT SILLY OLD MAN !! 
Alors la, je I'ai fait sortir de ses 
gonds. le jeune PDG d'Appoil ! II 
a les veines du cou gonfiees 
comme des merguez, et on di- 
rait qu'il vient de boire un litre 
d'extrait de jus de piment. II 
s'accroche des deux mains a 
son bureau en stratifie. 
-Si vous n'etiez pas un vieillard, 
je vous ferais avaler votre 
beret ! et heu...je...je... 
L'a pas vraiment I'habitude de 
s'enerver, le gamin. II cherche 
ses mots et fait mentalement 
I'inventaire de son repertoire 
d'injures en francais. Mais ga ne 
vient pas. et i! reste tout cons- 
tipe du vocable. J'en profile pour 
taper de la canne sur son bu- 
reau. Par reflexe il retire vive- 
ment ses mains et retombe 
assis dans son fauteuil de PDG. 
On dirait un voleur de confiture 
pris en faute. J'assene alors 
mon dernier argument: 
-Faut pas te laisser aller Jo- 
bard ! Rappelle-toi le bon temps, 
quand tu jouais la symphonic du 
fer a souder dans un garage 
avec ton copain Prozniok ! 
C'etait pas plus humain ga ? Tu 
voudrais me faire croire qu'un 
paquet de dollars t'a asseche le 
caractere et devisse le cibou- 
lot ? Tiens, bouge pas une se- 
conde... 

Je farfouille dans les poches du 
gjlet de velours noir que m'a 
legue mon grand'pere. J'en sors 
quelques cure-dents, un vieux ti- 
cket de metro et mon permis de 



conduire d'avant guerre qui est 
dans le meme etat qu'un ma- 
nuscrit tibetain. Finalement. je 
trouve ce que je veux, et je lui 
etale sous le nez un petit paquet 
de photos cornees, reliees par 
un elastique de chaussette. 

- Regarde-ga, mon gars. Elles 
sont pas belles ces petifes ? 
Hein? 

II jette un coup d'oeil etonne. 
Cet imbecile me prend peut-etre 
pour un vieux maquereau. Je 
marteie encore le bureau avec: 
le pommeau de ma canne, et 
Jobard ecarte son Macilemosh 
d'un geste de protection pres- 
que maternel. 

-Si tu ne viens pas a Parts, ces 
jolies jeunes filles risquent de se 
retrouver au Pere Lachaise. 
L'Ombre Verte nest pas un ri- 
golo. Et je te signale au pas- 
sage que c'est lui qui a pirate la 
ROM de I'Appoil Deux-Oeufs en 
1978. 

Cette petite phrase sybilline sert 
de coup de massue. Je sens 
que c'est presque gagne, mais 
faut faire preuve de grandeur 
dame et ne pas trop enfoncer le 
clou. 

- Bon ! Je te laisse reflechir et je 
te rappelfe ce soir. 

Sur ce, je ramasse mes affaires, 
ma dignile ,mon honneur, mon 
beret et je labandonne au fin 
fond de son grand fauteuil de 
cuir, en proie a une etrange re- 
verie. 

Dehors, c'est le ciel bleu de la 
Californie. Les baigneurs obeses 
dissimulent leurs herpes sous 
des tonnes de creme a bon- 
zer( !). Moi le soleil m'emmerde. 
J'aime mieux les petits matins 
gris de Paris et les culs de bou- 
teilles qui brillent sur les zincs 
fraichement nettoyes a I'eau de 
Javel. lei, tout est synthetique. 
Meme les palmiers ont I'air 
d'etre en plastique. Y a du luxe 
et de la misere. Mais la pau- 
vrete aux Etats Unis, c'est 
comme les moutons sous les 
lits. On sait qu'ils existent, mais 
on ne doit pas les montrer, 
J'active un peu mes vieilles arti- 
culations bouffees par I'arthrite 



parce que I'ai un deuxieme ren- 
dezvous qui n'est pas pique 
des hannetons. L'homme que je 
vais voir est un vieiix renard. Sa 
reputation n'est plus a faire. Au- 
tant le temperament de Steve 
Jobard est sujet aux fluctuations 
morales, autant je sais que mon 
prochain interlocuteur est un 
dur. 

Je peste contre la chaleur qui 
rend mes varices douloureuses 
et j'arrive devant un drole d'im- 
meuble. La facade a ete fraiche- 
ment repeinte, mais de la ba- 
tisse emane une sensation de 
fragility. En un mot. ga fail toe. 
On dirait un decor monte a la 
va-vite. Ah ! De mon temps, on 
faisait de !a belle construction 
en pierre de taille ! 
Au dessus du porche d'entree 
un neon clignotant begaie. Je ne 
peux pas me tromper, je suis 
bien chez ATRAHI. et je vais 
voir son illustre patron: Jack 
TRAMOLO ! Suite page 16 
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CONSOLES ET ACCESS01RIS Tl 99/4 

Micro-ordinoteur Tl 99/4A Pal 

Moduioteur Secam France 

Modulateur Peritel 

Cable liaison magneto cassettes 

Magneto cassettes Texas Instruments 

Magneto cassettes Lonsay / Compteur at cable 

I m prim ante Seikosctia GP 50 A 

I m prim ante Seikoscha GP 500 

Imp rim ante Epson RX80 friction /traction 

Machine a ecrire Brother EP 44 a memoire 

Interface parollele exterleure pour Tl 99 

Interface serle exterleure pour Brother pour Tl 99 

Extended Basic manuel trancals 

Manetle de |eux Super Joy a ventouse avec 

interface speclale supportant 2 manettes 

Manette Quick Shol ll a ventouse Tlr bloque 

avec adaptateur pour 2 manettes 

PR0GRAMMAT10N 

Extension memoire 32K exterleure 

Tl Logo n° 2 en francais dlsponlMe (Module) 

Mini memoire livrable avril (Module) 

K7 EPSILON/SOFTWARE POUR Tl 99 BASIC ETENDU 
Lunar Lander 2 simulation de vols spdtlaux 95 F D 

Lunar Jumper moto de I'espace 120 FD 

Solar systeme pilotage a la carte en 3 dimensions 1 20 F O 
Sum Games (les jeux olymplques) 1 20 F D 

• K7 Lunar Lander 2 +2K7 Lensemble 260 F D 



K7 HEBDOGICIELS SOFTWARE POUR Tl 99 

N° 3 rub Is sacre Basic etendu 
N" 4 6 jeux dont Dark Crystal Basic etendu 
N" 2 12 ]sux dont Roland Garros Basic etendu 
MODULES TEXAS ORGANISATION 



MODULES HJNWARE POUR Tl 99/4 

Rabbit Rail ; Driving Demon ; St nick ; Ambulance 



iioo Fa 


500 F □ 


500 F □ 


95 F D 


595 FH 


370 FD 


1 350 F a 


2 500 FD 


4 150 FO 


2 590 F D 


1 090 F D 


1 090 f a 


800 Fn 


195 FD 


230 F a 


1 340 F a 


895 F D 


895 FO 



A VOS CONSOLES Tl 99/4 b asic etendu disponib le 

T.I. logo N° 2 disponible 



mini-memoire 
disponible avril. 



400 f a 

MODULES ROMOX POUR Tl 99 

• Princess and Frog 9 niveaux, module d'adresse convenant 6 
tous - Traverser I'allee des cavaliers ■ Traverser le tleuve Inteste 
de crocos - Reussir a delivrer la princesse - Le tout en 
musique. 120 Fa 

• Anteater 9 niveaux - Un combat sans mercl dans les galeries 
creusees par les combattants - Acceleration loudroyante a 
partlr du T niveau. 120 F a 

• Rotor Raiders 9 niveaux - Pac-Man dlabolique et en 
musique. 100 F a 

• Hen Pecked 6 niveaux - Jusqu'a 10 ans un grand combat de 
coqs en musique. 1 00 F D 




SE5K— 



WWWEl 



LOGO 2 (module) 

Enseignez a votre ordinaleur ; 

tormes, couleurs, musique, 

procedures, caracteres dessines, 

variables de tous genres, 

constructions grammaticales et 

orilhmetlques... 

La lortue se deguise en souris 

habile entre vos mains et vous 

developpe logique et creativits - 

journal de bord - sauvegarde 

possible de tous supports, + 

im prim ante. 

Promotion : le module logo 

+ memoire 32 KG... 1995 F D 



BASIC ETENDU 

Module comprenant un langagede 
progmmmotion renforcanT le Basic 
du Tl 99 . 40 commondes supple- 
mental^, acces au longage 
ossembleur. (Entrees/sorties). 
Sous-programmes, stockoge, spri- 
tes, tfoitement d'erreurs. Expres- 
sions logiques. LET multiple. Intro- 
ductions multiples. Acces d Inten- 
sion 32 K. 




MlMOIRE 32 K exterleure neces- 
soire pour rutiiisalion du basic 
etendu. 

Elle est Indispensable pour lo pro- 
grammation en logo, Si Ton possede 
lo mini-memoire ou 1'assembleur, 
elle per met d'odresser des sous- 
programmes en ossembleur el de 
les executor. 



LOT N D 1 INDISPENSABLE 

• Module BASIC ETENDU manuel en trancals 

• K7 Basic par soi-meme 

• K7 Lunar Lander 2 (simulation de vols 

spoclaux) 850 F a 




LANGAGE PASCAL comprenant : 

La carte P. code et les dlsquertes Pascal : 

USCD; Compiler; Assembleur linker; 

Editeur tiler ; 3300 F a 



MINI-MEMOIRE 

I module + 1 cassette, compatible 
extension 32 K. 

Ce module ne se contente pas de 
vous oltrir 4 Ko de memoire RAM 
(alimentee par pile) permerrant lo 
sauvegarde des programmes et 
donnees lorsque vous eteignez [ 
I'ordinateur... 

II a aussi : 

• 4 Ko de memoire morle (ROM) et 
6 Ko de memoire morte graphique 
(G - ROM) comenant des uhlltaires 
ires interessant : 

- acces possible a I'extension 32 K 
en Tl basic; 

-chargement de programmes- 
objets ecrlts en assembleur, soil sur 
mini-memoire, solt sur extension 
32 K: 

- utilisation de PEEK et POKE, oppel 
de sous- prog ram mes habituelle- 
ment nonaccesslbles; 
-programme de recherche 
d'erreurs (Easy Bug - Debug), 
Avec la K7 : Assembleur ligne per 
ligne et programme de demonstra- 
tion graphique (LINES) rres puis- 
sant, 'passez la surmultipliee" sur 
votre Tl en vous affront 4 K de RAM 
non volatile el les joies de 1' Assem- 
bleur... 



PROGRAMMATION SUR DISQUETTES 

Coffret perlpherique Texas : orlgine U.S.A. 

comprenant le boitier. le controleur. 

et I'unite de dlsquette 5700 F □ 




CONTRfiLEURS - LECTEURS DE DISQUETTES 360 Ko 

• Carte controleur enfichable dans boitier perlpherique 
(compatible avec unites de disquettes Texas). 
Double face, double densite, 360 Ko. 

• Unile de lecture de dlsquertes 5"l/4 SLIMLINE 360 Ko 
1/2 hauteur (2 lecleurs peuvertt tenir dans le 
compartiment 'disque" du boitier peripherique). 

Lensemble 6300 F a 

(llvraison avrii). 
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Ces prli sont Indlcatlls et peuvent elre modules sans preavls. 
Produits dlspanlbles dans to llmlte de nos stocks en magasln. 
Pnrtlclpatlon om trals de port et d'expedltlon en recommande 
express pour les iogldels : + 30 F. Se renselgner pour tes colls 
au-dessus de S Kg olrisi que pour les expeditions a 1' stranger. 

LABEGLEACALCUL; 

65/67. bd Salnt-Germaln. 75005 PARIS 

Tel. : 325.6B.88 - Telex : ETRAV 220064 F / 1303 RAC. 

Livraiion det prodults dhponlUet *eus 8 lours. 
Demandef la litis des modules de |eux. 



